Einfügen Backslashes mit gsub

Question

Ich möchte meine R-Analyse mit Knitr ausgeben, und ich habe einen Text, der eine Reihe von Unterstrichen enthält. Ich muss sie entkommen lassen, also jeden _ in einen \_ verwandeln.

Da der Backslash aber auch ein Sonderzeichen in Regex ist, habe ich keinen Weg gefunden, vor jedem Unterstrich einen einzelnen Backslash einzufügen. Es scheint, dass eine ungerade Anzahl von Backslashes einen Fehler erzeugt (ich denke, der letzte wird mit dem Unterstrich gepaart), aber der Versuch, mit geraden Zahlen zu entkommen, hat auch nicht funktioniert.

a <- "blah _ blah ___ blah" 
> gsub("_", "\\_", a) 
[1] "blah _ blah ___ blah" 
> gsub("_", "\\\\_", a) 
[1] "blah \\_ blah \\_\\_\\_ blah" 
> gsub("_", "\\\_", a) 
Error: '\_' is an unrecognized escape in character string starting ""\\\_" 
> gsub("_", "\_", a) 
Error: '\_' is an unrecognized escape in character string starting ""\_" 

Was ist der richtige Weg? Es muss nicht gsub und regex verwenden, aber ich brauche die Escapes einfach auf eine einzelne Zeichenfolge angewendet werden.

Answer 1

Wir brauchen die \

gsub("_", "\\\\_", a) 

zu entkommen Wenn wir es drucken, es ist nur eine einzige \

cat(gsub("_", "\\\\_", a)) 
#blah \_ blah \_\_\_ blah 

Wir haben es herausfinden können, mit nchar

nchar("\\") 
#[1] 1