반짝이는 CSV 파일의 폴더를로드하는 방법

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 파일이 동일한 구조를 가지고 당신이 그들을 병합 할 최소한의 작업 예제가 될 수 있습니다

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

}) 

ui.R