上傳許多文件在閃亮

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文件做同樣的。