R：高效地删除目录中的所有空文件

我正在寻找一种有效的方法来删除R中目录和子目录中的所有空文件-什么是最好的方法？（我有10万个文件的目录，所以它必须很快）

###可复制的示例，有两个空文件和一个非空文件
目录创建（“A/B/C”，递归=TRUE）
目录创建（“A/D”，递归=TRUE）
cat（“，file=“A/B/C/empty1.txt”）
cat（“，file=“A/empty2.txt”）
cat（“111”，file=“A/D/notempty.txt”）
##获取所有文件名的矢量
ff我试图从目录中删除空的
.txt
-文件，其中“空的”
.txt
-文件的大小是1，而不是0。为了删除这些文件，我使用了与Josh O'Brien基本相同的方法，但要简单一点：

# All document names:
docs <- list.files(pattern = "*.txt")   

# Use file.size() immediate, instead of file.info(docs)$size:
inds <- file.size(docs) == 1 

# Remove all documents with file.size = 1 from the directory
file.remove(docs[inds])

#所有文档名称：
多谢医生-这正是我想要的-太好了！
# All document names:
docs <- list.files(pattern = "*.txt")   

# Use file.size() immediate, instead of file.info(docs)$size:
inds <- file.size(docs) == 1 

# Remove all documents with file.size = 1 from the directory
file.remove(docs[inds])