是否有R函数来转义正则表达式字符的字符串

Question

我想构建一个正则表达式替换某些字符串来搜索，所以这些字符串需要先被转义，然后才能将它们放入正则表达式中，所以如果搜索到的字符串包含正则表达式字符，它仍然有效。

某些语言具有可以为您执行此操作的功能（例如python re.escape：https://stackoverflow.com/a/10013356/1900520）。 R有这样的功能吗？

例如（由函数）：

x = "foo[bar]" 
y = escape(x) # y should now be "foo\\[bar\\]" 

Answer 1

我写Perl的quotemeta功能的R版本：

library(stringr) 
quotemeta <- function(string) { 
    str_replace_all(string, "(\\W)", "\\\\\\1") 
} 

我总是使用正则表达式的perl的味道，所以这对我的作品。我不知道它是否适用于R中的“正常”正则表达式。

编辑：我找到了解释其原因的源代码。它在Quoting Metacharacters section of the perlre manpage：

这一个常见的成语曾经用来关闭或引用中要使用的模式字符串的正则表达式元字符的特殊含义。简单地引用所有非“字”字：

$pattern =~ s/(\W)/\\$1/g; 

正如你所看到的R上面的代码是此相同的替代的直接转换（通过反斜杠地狱之旅后）。该手册页也说（重点煤矿）：

与其他一些正则表达式语言，有没有不属于字母数字符号反斜杠。

这强化了我的观点，即该解决方案只能保证PCRE。

Answer 2

显然有一个在Hmisc包称为escapeRegex功能。该功能本身具有以下定义为“串”的输入值：

gsub("([.|()\\^{}+$*?]|\\[|\\])", "\\\\\\1", string) 

我以前的答案：

我不知道是否有一个内置的功能，但你可以做一做你想要什么。这基本上只是创建一个你想要替换的值的向量和一个你想要替换的向量，然后通过那些进行必要的替换循环。

re.escape <- function(strings){ 
    vals <- c("\\\\", "\\[", "\\]", "\\(", "\\)", 
       "\\{", "\\}", "\\^", "\\$","\\*", 
       "\\+", "\\?", "\\.", "\\|") 
    replace.vals <- paste0("\\\\", vals) 
    for(i in seq_along(vals)){ 
     strings <- gsub(vals[i], replace.vals[i], strings) 
    } 
    strings 
} 

一些输出

> test.strings <- c("What the $^&(){}.*|?", "foo[bar]") 
> re.escape(test.strings) 
[1] "What the \\$\\^&\\(\\)\\{\\}\\.\\*\\|\\?" 
[2] "foo\\[bar\\]"