R 4.0+原生字符串语法如何搭配字符串插值实现正则表达式传参

问题根源 #

运行失败的核心原因有两个：

• 定义tmp = "123\b"时，普通双引号字符串会在代码解析阶段自动把\b转义为ASCII退格符，tmp实际存储的内容不是需要的字面量123\b，插值后自然无法匹配成功。
• R的原生字符串语法r"[xxx]"是代码解析阶段生效的语法规则，仅作用于代码中直接写死的字符串内容，不会对运行时的变量值做转义处理。

正确实现方案 #

只需要把待插值的变量本身定义为原生字符串，保证反斜杠被原样保留，再做插值即可：

library(stringr)
library(glue)

# 用原生字符串定义tmp，保留\b的字面量含义
tmp <- r"[123\b]"
str_detect("123 4", glue(r"[{tmp}]"))
# 运行输出：[1] TRUE

额外注意事项 #

• 所有需要保留反斜杠字面量的内容，都不要用普通双引号/单引号定义，必须用原生字符串语法包裹，避免提前被转义。
• 如果正则字符串是从外部文件、接口等渠道读取的，本身不会经过R代码的字符串解析转义，直接插值即可正常使用。

内容的提问来源于stack exchange，提问作者dimid