如何使用Recall（）`寫遞歸函數遞歸列出給定目錄中的目錄？

Question

這個Question詢問在當前目錄中列出目錄（不是文件）。我在其中一個答案的評論中指出，我們不能使用dir和list.files等函數的recursive參數遞歸列出當前目錄中的目錄。

對此的一個明顯的解決方案是編寫一個遞歸函數，該函數列出當前目錄中的目錄，並在每個目錄上依次調用自身，依此類推，添加到在遞歸結束。

Recall()函數似乎是理想的候選人，但我從來沒有真正瞭解到如何編寫一個遞歸函數，每次調用都會添加到最終輸出中。

一個會如何修改這個功能：

list.dirs <- function(path) { 
    x <- dir(path, full.names = TRUE) 
    dnames <- x[file_test("-d", x)] 
    dnames 
} 

把它向下遞歸通過目錄中dnames將發現到dnames目錄中找到的所有目錄的列表中的任何目錄，等等.. 。？

Answer 1

這裏有一種方法：

list.dirs <- function(path) { 
    x <- dir(path, full.names = TRUE) 
    dnames <- x[file_test("-d", x)] 
    tmp <- character(0) 
    for(i in seq_along(dnames)) { 
     tmp <- c(tmp, Recall(dnames[i])) 
    } 
    c(dnames,tmp) 
} 

這只是大頭針子目錄到年底，一些不同的邏輯，可以用來給不同的排序。