patch_bind_values default

r-dbi · Dec 16, 2023 · 2072438 · 2072438
1 parent dc98fcb
commit 2072438
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/spec-meta-bind-.R b/R/spec-meta-bind-.R
@@ -58,7 +58,7 @@ test_select_bind_one <- function(
     query = TRUE,
     skip_fun = NULL,
     check_return_value = NULL,
-    patch_bind_values = identity,
+    patch_bind_values = NULL,
     bind_error = NA,
     is_repeated = FALSE,
     is_premature_clear = FALSE,

diff --git a/R/spec-meta-bind-runner.R b/R/spec-meta-bind-runner.R
@@ -42,6 +42,10 @@ run_bind_tester$fun <- function(
   force(is_premature_clear)
   force(is_untouched)
 
+  if (is.null(patch_bind_values)) {
+    patch_bind_values <- identity
+  }
+
   bind_values_expr <- rlang::expr({
     bind_values <- !!construct_expr(bind_values)
   })