2013-03-20 11 views

risposta

8

Non credo che si può, ma qui è una soluzione. Una funzione che legge il file in, pulisce le sue linee utilizzando sub, e paste tutto insieme prima di passarlo al read.table:

my.read.table <- function(file, comment.char = "//", ...) { 
    clean.lines <- sub(paste0(comment.char, ".*"), "", readLines(file)) 
    read.table(..., text = paste(clean.lines, collapse = "\n")) 
    } 

Testing:

file <- textConnection("3 4 //a 
         1 2") 
my.read.table(file) 
# V1 V2 
# 1 3 4 
# 2 1 2 
+0

questo sembra davvero buono, grazie! –

+0

+! risposta molto bella –