在 PURRR 包中使用 walk 函数时参数未传递给函数

Question

我正在使用 purrr:walk 读取多个 excel 文件，但它失败了。我有 3 个问题：

(1) 我使用list.files函数读取了一个文件夹中的excel文件列表。但返回的值也包括子文件夹。我尝试为参数 recursive= 和 include.dirs= 设置值，但没有成功。

setwd(file_path)

files<-as_tibble(list.files(file_path,recursive=F,include.dirs=F)) %>%
  filter(str_detect(value,".xlsx"))
files

(2)当我使用下面这段代码时，它可以运行没有任何错误或警告信息，但没有返回数据。

###read the excel data
file_read <- function(value1) {
  print(value1)
  file1<-read_excel(value1,sheet=1)
}

walk(files$value,file_read)

当我使用以下内容时，它起作用了。不知道为什么。

test<-read_excel(files$value,sheet=1)

(3) Q2，其实我想创建file1到file6，假设有6个excel文件。如何动态分配数据集名称？

Answer 1

list.files 有 pattern 参数，您可以在其中指定要查找的文件类型。这将帮助您避免filter(str_detect(value,".xlsx")) 步骤。此外，list.files 仅返回包含在主目录 (file_path) 中的文件，而不是它的子目录，除非您指定 recursive = TRUE。

library(readxl)
setwd(file_path)

files <- list.files(pattern = '\\.xlsx')

在函数中你需要return对象。

file_read <- function(value1) {
  data <- read_excel(value1,sheet=1)
  return(data)
}

现在您可以使用map/lapply 来读取文件。

result <- purrr::map(files,file_read)