From 29062f643ceab94f23ca394d271cf3cdfe673897 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kirill=20M=C3=BCller?= Date: Mon, 15 Apr 2024 15:42:15 +0200 Subject: [PATCH] chore: Update constructive --- R/spec-meta-bind-arrow-stream.R | 2 +- R/spec-meta-bind-arrow.R | 2 +- R/spec-meta-bind-stream.R | 2 +- R/spec-meta-bind.R | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/spec-meta-bind-arrow-stream.R b/R/spec-meta-bind-arrow-stream.R index e60f01439..f3cb97674 100644 --- a/R/spec-meta-bind-arrow-stream.R +++ b/R/spec-meta-bind-arrow-stream.R @@ -454,7 +454,7 @@ spec_meta_arrow_stream_bind <- list( is_null_check <- ctx$tweaks$is_null_check for (placeholder_fun in placeholder_funs) { bind_values <- structure( - data.frame(" ", "\n", "\r", "\b", "'", "\"", "[", "]", "\\", NA_character_, check.names = FALSE), + data.frame(" ", "\n", "\r", "\b", "'", '"', "[", "]", "\\", NA_character_, check.names = FALSE), names = rep("", 10L) ) placeholder <- placeholder_fun(10L) diff --git a/R/spec-meta-bind-arrow.R b/R/spec-meta-bind-arrow.R index 44c1b0d60..888ec00d7 100644 --- a/R/spec-meta-bind-arrow.R +++ b/R/spec-meta-bind-arrow.R @@ -478,7 +478,7 @@ spec_meta_arrow_bind <- list( placeholder_funs <- get_placeholder_funs(ctx) is_null_check <- ctx$tweaks$is_null_check for (placeholder_fun in placeholder_funs) { - bind_values <- c(" ", "\n", "\r", "\b", "'", "\"", "[", "]", "\\", NA) + bind_values <- c(" ", "\n", "\r", "\b", "'", '"', "[", "]", "\\", NA) placeholder <- placeholder_fun(10L) names(bind_values) <- names(placeholder) placeholder_values <- map_chr(bind_values, function(x) DBI::dbQuoteLiteral(con, x[1])) diff --git a/R/spec-meta-bind-stream.R b/R/spec-meta-bind-stream.R index e1572b0da..3f509f516 100644 --- a/R/spec-meta-bind-stream.R +++ b/R/spec-meta-bind-stream.R @@ -596,7 +596,7 @@ spec_meta_stream_bind <- list( is_null_check <- ctx$tweaks$is_null_check for (placeholder_fun in placeholder_funs) { bind_values <- structure( - data.frame(" ", "\n", "\r", "\b", "'", "\"", "[", "]", "\\", NA_character_, check.names = FALSE), + data.frame(" ", "\n", "\r", "\b", "'", '"', "[", "]", "\\", NA_character_, check.names = FALSE), names = rep("", 10L) ) placeholder <- placeholder_fun(10L) diff --git a/R/spec-meta-bind.R b/R/spec-meta-bind.R index ce0b4a266..84052e299 100644 --- a/R/spec-meta-bind.R +++ b/R/spec-meta-bind.R @@ -619,7 +619,7 @@ spec_meta_bind <- list( placeholder_funs <- get_placeholder_funs(ctx) is_null_check <- ctx$tweaks$is_null_check for (placeholder_fun in placeholder_funs) { - bind_values <- c(" ", "\n", "\r", "\b", "'", "\"", "[", "]", "\\", NA) + bind_values <- c(" ", "\n", "\r", "\b", "'", '"', "[", "]", "\\", NA) placeholder <- placeholder_fun(10L) names(bind_values) <- names(placeholder) placeholder_values <- map_chr(bind_values, function(x) DBI::dbQuoteLiteral(con, x[1]))