dynamiczny regex w R

Question

Poniższy kod działa tak długo, jak before i after ciągi znaków, które nie mają są specjalne do 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)) 

Czy R posiadają funkcję uciec ciągi mają być używane w regexes?

Answer 1

Zastosowanie \Q...\E otoczyć że verbatim podwzorów:

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

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

co daje:

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

Answer 2

W Perlu jest http://perldoc.perl.org/functions/quotemeta.html za wykonanie dokładnie tego. Jeśli dokument jest poprawny, gdy mówi

Zwraca wartość WYRAŻ z wszystkich znaków ASCII spoza „słowo” odwrotnym ukośnikiem. (Oznacza to, że wszystkie znaki ASCII nie pasujące/[A-Za-z_0-9]/zostaną poprzedzone odwrotnym ukośnikiem w zwrócony ciąg, niezależnie od ustawień regionalnych.)

wtedy można osiągnąć taka sama wykonując:

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

i twój wzór powinien być:

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

Szybka kontrola poprawności:

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

Answer 3

dnagirl taka funkcja istnieje i jest 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)$" 

można po prostu usunąć "^" i "$" od strun, wykonując:

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