2013-03-20 11 views

Odpowiedz

8

Nie sądzę, że można, ale tutaj jest obejście problemu. Funkcja, która odczytuje plik, czyści swoje linie korzystające sub i pasty, wszystko z powrotem razem przed przekazaniem go do 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")) 
    } 

Testowanie:

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

wygląda to naprawdę dobrze, dziękuję! –

+0

+! bardzo ładna odpowiedź –