获取没有子目录的文件列表

Question

我想获取目录中的文件列表，但完全删除所有子目录。 list.files有include.dirs选项，但在递归为FALSE时强制它为TRUE。

我不想要子目录中的文件，我不想要子目录的名称。我希望能够致电：

list.files(recursive = F, include.dirs = F)

操作系统是Windows 7.1

Answer 1

这个怎么样？

list_files_only = function(...) {
    all_files = list.files(...)
    dirs = list.dirs(..., recursive = FALSE, full.names = FALSE)
    setdiff(all_files, dirs)
}

适用于当前工作目录，感谢BenBarnes，应该能够通过path arg或其他args。

Answer 2

使用assertive：

library(assertive)
files <- dir()
files[!is_dir(files)]