列出非空目录

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)]