r - 在 Shiny 中上传许多文件

Question

我正在开发一个应用程序，可帮助按主题/主题组织和可视化许多 PDF 文档。我可以上传和阅读单个 PDF，但我无法阅读多个 PDF 文档。

对于单个 PDF 文档:

用户界面

  ---
  fileInput('file1', 'Choose PDF File', accept=c('.pdf'))

 ---

服务器

   --------

   library(pdftools)

   -------


 mypdf<-reactive({

   inFile <- input$file1

   if (is.null(inFile)){
  return(NULL)
  }else{
  pdf_text(inFile$datapath)

   }

  })

要上传多个 PDF 文件，我必须在代码的 ui.R 部分使用 multiple = TRUE，但如何读取所有上传的文件？

Answer 1

上传的文件可以像这样在 for 循环中读取

for(i in 1:length(input$files[,1])){
  lst[[i]] <- read.csv(input$files[[i, 'datapath']])
}

这是 CSV 文件的示例，但您可以对 pdf 文件执行相同操作。