list.dirsの再帰量を制御する方法は？例えば

Question

、私の現在の作業ディレクトリ"."に私のようなサブディレクトリがある場合：構造体は、その後ヶ月のサブディレクトリに続く年間のサブディレクトリ、ディレクトリが行方不明で可能な日サブディレクトリ、ある、ある

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

を。どのように私は例えば、月だけのレベルまでのサブディレクトリを返すために（recursion = TRUEで）list.dirsを得るのです：

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