如何让用户可以在闪亮的应用程序中上传多个文件？

Question

我知道我必须使用 fileInput 函数，但我希望用户能够只上传一个、两个、三个或多个文件，然后对这些文件执行底层代码。 然后我希望用户能够下载生成的文件，但我想我知道该怎么做。 提前感谢您的任何答案。

Answer 1

我相信这应该让你朝着正确的方向前进，对我来说就像一个魅力。 基本逻辑是启用fileInput的multiple标志并遍历服务器函数中的文件列表。

library(shiny)
library(data.table)

ui <- fluidPage(
  titlePanel("Multiple file uploads"),
  sidebarLayout(
    sidebarPanel(
      fileInput("csvs",
                label="Upload CSVs here",
                multiple = TRUE)
    ),
    mainPanel(
      textOutput("count")
    )
  )
)

server <- function(input, output) {
  mycsvs<-reactive({
    rbindlist(lapply(input$csvs$datapath, fread),
              use.names = TRUE, fill = TRUE)
  })
  output$count <- renderText(nrow(mycsvs()))
}

shinyApp(ui = ui, server = server)