按R中的文件夹读取文件

Question

我试图用R读取文件夹中的所有文件，但我总是遇到这样的错误：

>folder<-"/Volumes/cphg/projects/PROVIDE/freeze" #working directory
>filelist<-list.files(folder) #all files in the directory
>data<-vector("list", length(filelist)) #empty list
>names(data)<-filelist
>for (name in filelist) {
+           data[[name]]<-read.table(paste(folder, name, sep="/"), header=T)
+}
Error in read.table(file = file, header = header, sep = sep, quote = quote,  : 
  no lines available in input

有没有人知道这里有什么问题以及如何解决？

Answer 1

如果读取文件失败，您可以使用tryCatch并返回NULL。然后你可以Filter结果排除NULL

L <- setNames(lapply(filelist, function(x) {
  tryCatch(read.table(file.path(folder, name)), error=function(e) NULL)
}), filelist)
data <- Filter(NROW, L)

Answer 2

只是为了说清楚......并正确地结束问题

问题是至少有一个文件为空。通过错误检查文件名。