上传许多文件在闪亮

Question

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

对于单个PDF文档：

ui.R

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

--- 

server.R

-------- 

    library(pdftools) 

    ------- 


mypdf<-reactive({ 

    inFile <- input$file1 

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

    } 

    }) 

---

上传多个PDF文件，我不得不使用多个= TRUE在代码的ui.R部分，但我怎样才能读取所有上传的文件？

Answer 1

上传的文件可以在阅读for循环这样

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

这是一个CSV文件的示例，但你可以对PDF文件做同样的。