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

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

这应该有效：

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.

---

来自

R.utils

包的函数

countLines（）

执行以下任务：

library(R.utils)

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

---

嘿它不起作用。文件大小不是0。它显示为4个字节。使用

countLines（）==0

或设置一个

就可以了！应用计数线（x）太好了，很乐意帮忙。countLines是一个有用的函数，可以解决4字节的问题（在4字节的csv中可以有一些行！）