r - 如何以 Shiny 的方式加载 csv 文件的文件夹

Question

我有一个 CSV 文件文件夹，我想将它们作为 Shiny 的文件列表上传和访问。我尝试了以下代码来上传文件。

server: output$sourced <- renderDataTable({

        inFile <- input$file1

        if (is.null(inFile))
          return(NULL)

        df <- list.files(inFile$datapath)  #, header=input$header, sep=input$sep, quote=input$quote)

    }) 

ui.r:  fileInput("file1", "Choose CSV files from directory", multiple = "TRUE",
                accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),

文件夹上传错误:
invalid 'description' argument
对于一个文件，如果我使用 df <- read.csv(inFile$datapath)，它工作正常加载文件。但是我无法上传文件夹。帮助表示赞赏。

Answer 1

假设 CSV 文件具有相同的结构并且您想要合并它们，最小的工作示例可以是:

ui.R

library(shiny)

shinyUI(
  fluidPage(
    fileInput("file1",
              "Choose CSV files from directory",
              multiple = TRUE,
              accept=c('text/csv', 
                       'text/comma-separated-values,text/plain', 
                       '.csv')),
    dataTableOutput("sourced")
))

server.R

library(shiny)
library(dplyr)

shinyServer(function(input, output) {

  output$sourced <- renderDataTable({

    inFile <- input$file1
    if (is.null(inFile)) {
      return(NULL)
    } else {
      inFile %>%
        rowwise() %>%
        do({
          read.csv(.$datapath)
        })
    }
  }) 

})