列出非空目錄

Question

有沒有簡單的方法只列出非空的目錄？

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

Answer 1

您可以在list.dirs結果使用list.files：

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

Answer 2

這裏是一個班輪解決方案：

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

Answer 3

獲取文件名，然後解壓目錄名稱：

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