From 7ab5cf06111de24e3d490a91db192b51e53bfe7e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <kirill@cynkra.com>
Date: Sun, 17 Dec 2023 09:20:58 +0100
Subject: [PATCH] Avoid raw strings

---
 R/spec-meta-bind.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/spec-meta-bind.R b/R/spec-meta-bind.R
index 1cfe2a346..826147097 100644
--- a/R/spec-meta-bind.R
+++ b/R/spec-meta-bind.R
@@ -546,11 +546,11 @@ spec_meta_bind <- list(
       res <- NULL
     }
   },
-  bind_character_escape = if (getRversion() >= "4.0") function(ctx, con) {
+  bind_character_escape = function(ctx, con) {
     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", "'", "\"", "[", "]", r"[\]", 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]))