Ignora caratteri di escape (barre retroverse) nelle stringhe R

Question

Durante l'esecuzione di un plug-in R in SPSS, ricevo una stringa del percorso di Windows come input, ad es.

'C:\Users\mhermans\somefile.csv' 

desidero utilizzare tale percorso nel codice successivo R, ma poi le barre devono essere sostituiti con barre dirette, altrimenti R interpreta come fughe (ad es. "\ U utilizzato senza hex digits" errori) .

Tuttavia non sono riuscito a trovare una funzione in grado di sostituire i backslash con le barre di foward o di evitarli. Tutte queste funzioni presuppongono che quei personaggi siano sfuggiti.

Quindi, c'è qualcosa sulla falsariga di:

>gsub('\\', '/', 'C:\Users\mhermans') 
C:/Users/mhermans 

Answer 1

Si può provare a utilizzare l'argomento delle 'allowEscapes' a scansione()

X=scan(what="character",allowEscapes=F) 
C:\Users\mhermans\somefile.csv 

print(X) 
[1] "C:\\Users\\mhermans\\somefile.csv" 

Answer 2

Prima di tutto bisogna farlo assegnato a un nome:

pathname <- 'C:\\Users\\mhermans\\somefile.csv' 

si noti che al fine di ottenere in un nome di vettore avevi bisogno di raddoppiare tutti, che dà un suggerimento su come si potrebbe usare espressioni regolari:

gsub("\\\\", "/", pathname) 
# [1] "C:/Users/mhermans/somefile.csv" 

È necessario per doppiamente doppio le barre inverse. Il primo di ogni coppia di \ 's è quello di segnalare alla macchina grep che ciò che segue è un valore letterale.

Answer 3

Se il file E: \ Data \ rusco.txt contiene il seguente testo (senza virgolette): C: \ Users \ mhermans \ somefile.csv

Si può ottenere un avviso con la seguente dichiarazione, ma sarà lavoro:

texinp <- readLines("E:\\Data\\junk.txt") 

Se il file E: \ Data \ rusco.txt contiene il seguente testo (con le virgolette): "C: \ Users \ mhermans \ somefile.csv"

la dichiarazione readlines sopra potrebbe anche darti un avvertimento, ma ora conterrà:

"\" C: \ Users \ mhermans \ somefile.csv \ ""

Quindi, per ottenere ciò che si vuole, assicurarsi che non ci sono citazioni nel file in entrata, e l'uso:

texinp <- suppressWarnings(readLines("E:\\Data\\junk.txt"))