regex động trong R

Question

Mã dưới đây hoạt động rất dài như before và after chuỗi không có ký tự mà đặc biệt để một regex:

before <- 'Name of your Manager (note "self" if you are the Manager)' #parentheses cause problem in regex 
after <- 'CURRENT FOCUS' 

pattern <- paste0(c('(?<=', before, ').*?(?=', after, ')'), collapse='') 
ex <- regmatches(x, gregexpr(pattern, x, perl=TRUE)) 

Liệu R có một chức năng để thoát khỏi chuỗi được sử dụng trong regexes?

Answer 1

Sử dụng \Q...\E bao vây các mẫu con nguyên văn:

# test data 
before <- "A." 
after <- ".Z" 
x <- c("A.xyz.Z", "ABxyzYZ") 

pattern <- sprintf('(?<=\\Q%s\\E).*?(?=\\Q%s\\E)', before, after) 

cung cấp:

> gregexpr(pattern, x, perl = TRUE) > 0 
[1] TRUE FALSE 

Answer 2

Trong Perl, có http://perldoc.perl.org/functions/quotemeta.html để thực hiện chính xác điều đó. Nếu doc ​​là đúng khi nó nói

Trả về giá trị của EXPR với tất cả các ký tự ASCII phi "từ" nhân vật backslashed. (Tức là, tất cả các ký tự ASCII không phù hợp/[A-Za-z_0-9]/sẽ được đi trước bởi một dấu chéo ngược trong chuỗi trở về, bất kể bất kỳ cài đặt locale.)

sau đó bạn có thể đạt được cùng bằng cách thực hiện:

quotemeta <- function(x) gsub("([^A-Za-z_0-9])", "\\\\\\1", x) 

Và mô hình của bạn nên là:

pattern <- paste0(c('(?<=', quotemeta(before), ').*?(?=', quotemeta(after), ')'), 
        collapse='') 

nhanh kiểm tra sự tỉnh táo:

a <- "he'l(lo)" 
grepl(a, a) 
# [1] FALSE 
grepl(quotemeta(a), a) 
# [1] TRUE 

Answer 3

dnagirl, một chức năng như vậy tồn tại và là glob2rx

a <- "he'l(lo)" 
tt <- glob2rx(a) 
# [1] "^he'l\\(lo)$" 

before <- 'Name of your Manager (note "self" if you are the Manager)' 
tt <- glob2rx(before) 
# [1] "^Name of your Manager \\(note \"self\" if you are the Manager)$" 

Bạn chỉ có thể loại bỏ các "^" và "$" từ chuỗi bằng cách thực hiện:

substr(tt, 2, nchar(tt)-1) 
# [1] "he'l\\(lo)"