如何将所有非空csv文件读入R中的列表

Question

我想将一堆csvs读入R中的列表

lol<-lapply(list.files()[c(grep(Sys.Date(),list.files()))],read.csv)

有些csv文件是空的,所以我得到了

Error in read.table(file = file, header = header, sep = sep, quote = quote,  : 
  no lines available in input

(至少我认为错误意味着)

如何将非空csv文件读入列表？

tryCatch 不起作用(或者我使用它错了)

tryCatch(toplel<-lapply(list.files()[c(grep(Sys.Date(),list.files()))],read.csv),error=function(e){print("lel")})
[1] "lel"

Answer 1

尝试按大小排除空文件:

files <- list.files()[c(grep(Sys.Date(),list.files()))]
files <- files[which(file.info(files)$size>0)]

lapply(files, read.csv)