2013-03-20 33 views

Trả lời

8

Tôi không nghĩ bạn có thể nhưng đây là giải pháp thay thế. Một chức năng mà đọc các tập tin trong, làm sạch dòng của nó sử dụng sub, và bột nhão tất cả mọi thứ lại với nhau trước khi đi qua nó để 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")) 
    } 

Thử nghiệm:

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

này trông thật sự tốt, cảm ơn bạn! –

+0

+! câu trả lời rất hay –

Các vấn đề liên quan