Rimozione di apici inversi in uscita R

Question

Ho determinate variabili che lm in R esegue automaticamente il wrapping con apici inversi/apici posteriori, ad es. variabili che hanno due punti nei nomi.

Dopo l'elaborazione, sto cercando di scrivere le variabili ei coefficienti del modello lineare con write.table. Sfortunatamente anche i backtick sono scritti.

Come è possibile impedire la scrittura di questi apici inversi?

Per dare un semplice ma realistico esempio:

d <- data.frame(`1`=runif(10), y=runif(10), check.names=F) 
l <- lm(y ~ `1`, d) 
write.table(data.frame(l$coefficients), file="lm.coeffs", quote=F, sep="\t", col.names=F) 

Il file lm.coeffs sarà - ovviamente - hanno `1` nella prima colonna dell'output piuttosto che 1. Al di fuori della postelaborazione in qualche altro script, come posso rimuovere i backtick dall'output?

Answer 1

È possibile eseguire post-elaborazione in R. Invece di un file, memorizzare l'output in una variabile utilizzando capture.output. Rimuovere i backtick usando gsub. Infine, stampare l'output in un file utilizzando cat:

report <- capture.output(write.table(data.frame(l$coefficients), 
         quote = FALSE, sep = "\t", col.names = FALSE)) 

cat(gsub("`", "", report), sep = "\n", file = "lm.coeffs")