Merge pull request #371 from r-dbi/f-cons

chore: Update constructive
r-dbi · Apr 15, 2024 · 1b469df · 1b469df
2 parents 4f96242 + 29062f6
commit 1b469df
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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]))