Demo shiny app for multiple file uploads and a single read step

app.R

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)

Thank you very much !!!!

I added a step to view the data in a table, but it seems that the files (xlsx) are not actually combining. I am simply uploading a new file each time. Is there a step I am missing that combines each file I upload? Thank you so much for this demo!

You may need to ctrl+click the files @piercefa you want to upload when in your file explorer window that pops up