r - 如何将所有非空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)