有some prior related questions（1，2，3），但没有什么是我想要的，我不能让代码示例运行Jenny Bryan posted in 2018。
我有一个与我共享的文件夹，里面有一些大文件。文件是嵌套的。所以我想递归到子目录中，并从每个子目录中获取所有文件。在我的例子中，只有两层，但如果有一种方法可以适用于任意数量的层，那就太好了。
最明显的命令是简单地告诉它下载文件夹，希望它能弄清楚子结构：

#load the libraries
library(tidyverse)
library(googledrive)

#folder link to id
#hidden for privacy reasons
jp_folder = "https://drive.google.com/drive/folders/XXXXX" 
folder_id = drive_get(as_id(jp_folder))

#download in entirety
drive_download(folder_id)

不幸的是，这不起作用，因为它显然不能处理文件夹：

> drive_download(folder_id)
Error: Not a recognized Google MIME type:
  * application/vnd.google-apps.folder

下面是我通过进入每个子目录来避免这个问题的尝试：

#load the libraries
library(tidyverse)
library(googledrive)

#folder link to id
#hidden for privacy reasons
jp_folder = "https://drive.google.com/drive/folders/XXXXX" 

#get the id data frame
folder_id = drive_get(as_id(jp_folder))

#find files in folder
files = drive_ls(folder_id)

#loop dirs and download files inside them
for (i in seq_along(files$name)) {
  i_dir = drive_ls(files$id[i])
  
  #download files
  walk(i_dir$id, ~ drive_download(as_id(.x)))
}

files对象看起来很好（用填充符替换字符串）：

# A tibble: 6 x 3
  name   id                                drive_resource   
* <chr>  <chr>                             <list>           
1 A      AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA <named list [32]>
2 B      BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB <named list [32]>
3 C      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC <named list [31]>
4 D      DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD <named list [31]>
5 E      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE <named list [31]>
6 F      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF <named list [31]>

然而，当一个人试图获取subdir的内容时，它会抛出这个错误：

> i_dir = drive_ls(files$id[i])
Error: 'path' does not identify at least one Drive file.

怎么了？