R gsub/str_replace 返回一个反斜杠

Question

我需要在 SQL 数据库中插入一个数据框。我已经构建了脚本（使用循环、str_c、RODBC）将我的数据框转换为 SQL 插入命令，但是我遇到了一个问题，即一个“'”破坏了 SQL。

这是一个问题的例子：

数据框如下所示：

pk  b
1    o'keefe

所需的 SQL 输出为：INSERT INTO table (pk, b) (1, 'o\'keefe')

gsub("'", "\'", str_replace_na(df$b[1], ""))

[1] "o'keefe"

gsub("'", "\\\\'", str_replace_na(df$b[1], ""))

[1] "o\\'keefe"

我试过str_replace、str_replace_all、gsub w/fixed = TRUE 和perl = TRUE，我得到了相同的结果。

我知道How to give Backslash as replacement in R string replace 上的评论指出cat() 显示斜线。但这不会延续到我的数据框或 SQL 查询中。

对于这个问题的任何帮助将不胜感激！

---

附加说明，我知道 R 会打印一个双反斜杠，如 http://r.789695.n4.nabble.com/gsub-replacing-double-backslashes-with-single-backslash-td4453328.html 和 R: How to replace space (' ') in string with a *single* backslash and space ('\ ') 所引用，即使只有一个斜杠确实存在。但是，当出现零个或两个反斜杠时，我的 SQL 语句仍然无法工作。

Answer 1

"o\\'keefe" 实际上是您想要的：双黑斜线实际上是单个反斜线的表示。

例如：

\U005C 是反斜杠的 unicode 字符。然而：

"\U005C"

[1] "\\"

而 \U002F 是正斜杠的 unicode 字符，并且：

"\U002F"

[1] "/"

所以你的第二个解决方案已经给了你想要的。删除不必要的str_replace_na()：

gsub("'", "\\\\'", df$b[1])

[1] "o\\'keefe"

注意：实际上归功于@Rui Barradas，他证明了双反斜杠代表单个反斜杠：

nchar("\\")

[1] 1

Answer 2

尝试将单引号放在 ['] 中。

x <- "o'keefe"
y <- gsub("[']", "\\\\'", s)
y
#[1] "o\\'keefe"

这似乎在字符串中添加了两个字符，但没有，只有一个\。

nchar(x)
#[1] 7

nchar(y)
#[1] 8