如何列出位于不同子文件夹中的许多pdf，然后在r中应用pdf_data（pdftools）？

Question

我的目标是

list

位于不同子文件夹中的多个pdf，然后在整个列表上应用

pdf_data

（

pdftools

）功能。

my_path

文件夹中的所有类似 pdf 都可以使用以下代码嵌套到一个

list

中（如果也位于

my_path

中），然后，

pdf_data

可以在

lapply

中使用：

library(pdftools)
my_list <- list.files(path = "C:/my_path/", pattern = '\\.pdf$')
my_pdf <- lapply(setNames(nm= my_list), pdf_data)

但是，如何

list.files

位于

path1

中不同子文件夹（例如

path2

、

path3

、

my_path

...）中的多个pdf文件，以便在整个列表上

lapply

pdf_data

？

感谢您的帮助

Answer 1

以下代码可以工作，但是可以使其更短吗？

my_path <- "C:/my_path/"
my_pdf <- "\\.pdf$"
my_read <- function(my_path, file_name){
  x <- pdf_data(paste0(my_path, file_name))
  return(x)}
my_list <-
  list.files(my_path, pattern = my_pdf, recursive = TRUE) %>% 
  map_df(~ my_read(my_path, .))