如何控制list.dirs中的遞歸量？

Question

例如，如果在我的當前工作目錄"."我有這樣的子目錄：

./2013/1/1 
./2013/1/5 
... 
./2013/1/29 
./2013/2/2 
... 
./2013/2/28 
... 
./2013/12/31 
./2014/01/01 
... 

也就是說，結構是一年子目錄，其次是月子目錄，然後是日子目錄，可以使用目錄丟失。如何獲得list.dirs（與recursion = TRUE）只返回子目錄到一個月的水平，如：

./2013/1 
./2013/2 
... 
./2013/12 
./2014/01 
... 

Answer 1

充實DWW的建議，你可以列出所有目錄遞歸，然後篩選出那些有兩個層次：

dirs <- list.dirs("datedirs", recursive = TRUE) 

nlevels <- lapply(strsplit(dirs, .Platform$file.sep), length) 

dirs[nlevels == 2]