这似乎做到了：

folder_to_list <- function(path) {
  if (!dir.exists(path)) return(readBin(path, "raw", file.info(path)$size))
  paths <- list.files(path, all.files = TRUE, no.. = TRUE)
  setNames(lapply(file.path(path, paths), folder_to_list), paths)
}

list_to_folder <- function(x, path) {
  dir.create(path)
  dirs <- names(Filter(is.list, x))
  files <- setdiff(names(x), dirs)
  for (file in files) writeBin(x[[file]], file.path(path, file))
  for (dir in dirs) list_to_folder(x[[dir]], file.path(path, dir))
}

x <- folder_to_list(folder)
x
#> $hello.txt
#> [1] 68 65 6c 6c 6f 0d 0a
#> 
#> $subfolder
#> $subfolder$world.txt
#> [1] 77 6f 72 6c 64 0d 0a

new_folder <- tempfile()
list_to_folder(x, new_folder)
list.files(new_folder, recursive = TRUE)
#> [1] "hello.txt"           "subfolder/world.txt"
readLines(file.path(new_folder, "hello.txt"))
#> [1] "hello"
readLines(file.path(new_folder, "subfolder", "world.txt"))
#> [1] "world"

创建于2023-06-21使用reprex v2.0.2