Kann nicht scheinen, vektorisiert gsub zu bekommen mit Bibliothek „qdap“ und mgsub zu arbeiten

Question

ich auf diese Frage suchte:

R: gsub, pattern = vector and replacement = vector

Ich bin ein einfaches Beispiel versuchen, und ich kann es nicht bekommen Arbeit.

testList <- c("apple", "orange", "banana1", "apple4", "orange 8", "banana 10") 

repl <- c("apple", "orange", "banana") 

pat <- paste0("^", repl, "[[:space:]]*[[:digit:]]*$") 

result <- mgsub(pat, repl, testList) 

Sollte nicht diese Ausgabe:

"apple", "orange", "banana", "apple", "orange", "banana" 

Answer 1

Sie müssen fixed = FALSE angeben, ist der Standard TRUE, die das Muster ersetzt wie und verwenden regex nicht:

result <- mgsub(pat, repl, testList, fixed = FALSE) 
result 
# [1] "apple" "orange" "banana" "apple" "orange" "banana"