如何控制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）仅包含 return 个子目录，直到月份级别，例如：

./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]

How to control amount of recursion in list.dirs?