Merge pull request #327 from r-dbi/f-inline-bind

chore: Work around constructive problem

tests/testthat/helper-dev.R

@@ -1,4 +1,4 @@
-if (dir.exists("../../../RSQLite")) {
+if (Sys.getenv("CI") == "" && dir.exists("../../../RSQLite")) {
   writeLines(
     c(
       "# Generated by helper-dev.R, do not edit by hand",
@@ -59,12 +59,8 @@ 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
-  )
+  # FIXME: Why does constructive not handle this?
+  text <- gsub('r"[\\]"', '"\\\\"', text, fixed = TRUE)
   text <- c(
     "# Generated by helper-dev.R, do not edit by hand",
     "",
@@ -85,7 +81,7 @@ times <- file.mtime(c(
   NULL
 ))
 
-if (which.max(times) != 1) {
+if (Sys.getenv("CI") == "" && which.max(times) != 1) {
   message("Generating spec-meta-bind.R")
   inline_meta_tests()
 }