Fix checks for R < 4.0

r-dbi · Dec 17, 2023 · 3e53a2a · 3e53a2a
1 parent 6d35631
commit 3e53a2a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/R/spec-meta-bind.R b/R/spec-meta-bind.R
@@ -546,7 +546,7 @@ spec_meta_bind <- list(
       res <- NULL
     }
   },
-  bind_character_escape = function(ctx, con) {
+  bind_character_escape = if (getRversion() >= "4.0") function(ctx, con) {
     placeholder_funs <- get_placeholder_funs(ctx)
     is_null_check <- ctx$tweaks$is_null_check
     for (placeholder_fun in placeholder_funs) {

diff --git a/tests/testthat/helper-dev.R b/tests/testthat/helper-dev.R
@@ -59,6 +59,12 @@ inline_meta_tests <- function() {
 
   text <- trimws(format(cs$code), "right")
   text[[1]] <- paste0("spec_meta_bind <- ", text[[1]])
+  # Hack
+  text <- gsub(
+    "bind_character_escape = ",
+    'bind_character_escape = if (getRversion() >= "4.0") ',
+    text
+  )
   text <- c(
     "# Generated by helper-dev.R, do not edit by hand",
     "",