r - 使用 read_excel 上传并自动命名所有现有工作簿工作表(不指定工作表数量)

Question

我想修改下面的答案，取自 this question 。

# Example data
write.xlsx(mtcars, "mt cars.xlsx")
write.xlsx(mtcars, "mt car s.xlsx")

temp = list.files(pattern="*.xlsx")

make_names <- function(x) {
  gsub("\\.", "_", make.names(gsub("*.xlsx$", "", x)))
}
names(temp) <- make_names(temp)

list2env(lapply(temp, read.xlsx), envir = .GlobalEnv)
#> <environment: R_GlobalEnv>

ls()
#> [1] "make_names" "mt_car_s"   "mt_cars"    "temp"

让我们假设其中一个 Excel 文件有第二张表(我试图创建一个可复制的，但不知道如何使用 write.xlsx 编写第二张表)。
从一个 Excel 文件加载所有 Excel 工作表的代码可以在 here 中找到(感谢 akrun)。但是，就我而言，我正在尝试上传文件夹而不是文件。
我怎样才能结合这段代码来做这两件事？
是否可以选择查找更多床单？

Answer 1

像这样的东西应该工作:

library(readxl)
paths <- list.files(pattern="*.xlsx")
read_all_sheets <- 
  function(path) sapply(excel_sheets(path), read_excel, path = path, USE.NAMES = TRUE, simplify = FALSE)
xl_list <- sapply(paths, read_all_sheets, USE.NAMES = TRUE, simplify = FALSE)