Question

我有一个CSV文件的文件夹，我想上传并以闪亮的文件列表的形式访问它们。我尝试使用以下代码上传文件。

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)
        })
    }
  }) 

})

如何加载闪亮的csv文件的文件夹

1 个答案: