上傳多個文件中有光澤，工藝文件，rbind結果，並返回一個下載

Question

我需要上傳多個CSV文件（dummy multiple files）並應用一些操作，以每個文件，然後將所得dataframes合併成一個數據幀和將輸出下載爲csv文件。我的原始R代碼工作，但我需要把它放在閃亮的自動化過程，但不知何故，當我上傳兩個文件，我得到這個錯誤：「下標越界」。幫助將不勝感激。這是我的工作原生R代碼裏面：

files = list.files("G:/JSON to CSV/merge") 
numfiles = nrow(inFile) 
kata_csv1 = list() 
for (i in 1:numfiles) 
{ 
    kata_csv = function(y){ 
    JSON_csv = read.csv(y, header = TRUE) 
    lastrow = nrow(JSON_csv) 
    shift = function(x, n){ 
    c(x[-(seq(n))], rep(NA, n)) 
    } 
    JSON_csv$companyID1 = shift(JSON_csv$companyID1, 1) 
    JSON_csv = JSON_csv[-lastrow, ] 
    JSON_csv 
    } 
kata_csv1[[i]] = kata_csv(files[i]) 
} 

myMergedData = do.call(rbind, kata_csv1) 
write.csv(myMergedData, "myMergedData.csv", row.names=FALSE) 

這裏是我的閃亮的代碼沒有工作：

UI.R：

ui <- fluidPage(
    fluidPage(
    titlePanel("MY CSV FILES MERGER"), 
    sidebarLayout(
     sidebarPanel(
     fileInput("file1", 
       "Choose CSV files from directory", 
       multiple = TRUE, 
       accept=c('text/csv', 
         'text/comma-separated-values,text/plain', 
         '.csv')), 
     downloadButton('downloadData', 'Download') 
     ), 
     mainPanel(
     tableOutput('contents') 
     ) 
    ) 
    ) 
) 

Server.R：

library(shiny) 
library(dplyr) 
function(input, output) { 
    getData <- reactive({ 
    inFile <- input$file1 
    if (is.null(inFile)){ 
    return(NULL) 
    } else { 
    numfiles = length(inFile) 
    kata_csv1 = list() 
    for (i in 1:numfiles) 
    { 

     JSON_csv = read.csv(input$file1[[i, 'datapath']], header = TRUE) 
     lastrow = nrow(JSON_csv) 
     shift = function(x, n){ 
     c(x[-(seq(n))], rep(NA, n)) 
     } 
     JSON_csv$companyID1 = shift(JSON_csv$companyID1, 1) 
     kata_csv1[[i]] = JSON_csv[-lastrow, ] 

    } 
    do.call(rbind, kata_csv1) 
    } 
    }) 
    output$contents <- renderTable( 
    getData() 
    ) 
    output$downloadData <- downloadHandler(
    filename = function() { 
    paste("data-", Sys.Date(), ".csv", sep="") 
    }, 
    content = function(file) { 
    write.csv(getData(), file, row.names=FALSE) 
    }) 
    } 

Answer 1

這個錯誤是因爲你正在計算作爲numfiles = length(inFile)的numfiles給你colu數量在您的​​數據框中。您將不得不使用numfiles = nrow(inFile)，因爲數據框中的行數爲您提供了已上傳文件的數量。

[編輯]： 是爲我工作的代碼是：

library(shiny) 
    library(dplyr) 
server <- function(input, output) { 
    getData <- reactive({ 
     inFile <- input$file1 
     if (is.null(inFile)){ 
     return(NULL) 
     }else { 
     # browser() 
     numfiles = nrow(inFile) 
     kata_csv1 = list() 


     for (i in 1:numfiles) 
     { 

      JSON_csv = read.csv(input$file1[[i, 'datapath']], header = TRUE) 
      lastrow = nrow(JSON_csv) 
      shift = function(x, n){ 
      c(x[-(seq(n))], rep(NA, n)) 
      } 
      JSON_csv$companyID1 = shift(JSON_csv$companyID1, 1) 
      kata_csv1[[i]] = JSON_csv[-lastrow, ] 

     } 
     # browser() 
     do.call(rbind, kata_csv1) 
     } 
    }) 
    output$contents <- renderTable( 
     getData() 
    ) 
    output$downloadData <- downloadHandler(
     filename = function() { 
     paste("data-", Sys.Date(), ".csv", sep="") 
     }, 
     content = function(file) { 
     write.csv(getData(), file, row.names=FALSE) 
     }) 
    } 

shinyApp(ui = ui, server = server)