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

Question

我想读一堆csv到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)