列出非空目录

Question

有没有简单的方法只列出非空的目录？

我知道list.dirs，但我找不到列出非空目录的方法。

Answer 1

获取文件名，然后提取目录名称：

unique(dirname(list.files(full.names = TRUE, recursive = TRUE)))

Answer 2

您可以对list.files：

的结果使用list.dirs

dirlist <- list.dirs("./R/R-3.3.1/library/zoo")
dirlist [sapply(dirlist, function(x) length(list.files(x))>0)]

Answer 3

这是一个单线解决方案：

nonempty <- list.dirs(recursive=F)[which(lengths(lapply(list.dirs(recursive=F), list.files)) > 0)]