是否有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\\]"