删除目录中的空csv文件 - R.

Question

我在一个文件夹（1.csv，2.csv ....，20.csv）中有许多csv文件，但其中一些是空的（5.csv，8.csv）。空文件甚至包含大约4个字节的大小，而不是大小0。
我需要在目录中删除它们，我想在R中实现这一点。这可能吗？感谢任何帮助！

Answer 1

来自countLines()包的函数R.utils完成了这项工作：

library(R.utils)

lapply(Filter(function(x) countLines(x)==0, list.files(pattern='.csv')), unlink)

Answer 2

这应该有效：

setwd("/path/to/files/")   #set the directory
for(i in list.files(pattern="*.csv$"))  # iterate i over .csv files
if(file.info(i)$size==0) remove.file(i)  #delete the ones with 0 length
#or
if(R.utils::countLines(i)==0) remove.file(i) #delete the ones with 0 lines.