2013-03-20 8 views

cevap

8

Yapabileceğinizi sanmıyorum ama burada bir çözüm var. Dosyayı okur bir işlevi read.table geçirmeden önce birlikte geri sub kullanarak çizgileri ve macunlar şeyi temizler:

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

Test:

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

bu gerçekten iyi görünüyor, teşekkür ederim! –

+0

+! çok güzel cevap –