r 为多个文件上传和单个读取步骤演示闪亮的应用程序

Posted 2021-05-24

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)