Uploading multiple files in Shiny, process the files, rbind the results and return a download

Content Index :

Uploading multiple files in Shiny, process the files, rbind the results and return a download
Download multiple csv files in a zipped folder in Shiny
R shiny: download multiple .csv files
Uploading multiple files in Shiny, process the files using lapply, rbind the results and return a download
Uploading zip with multiple files into a shiny application
Download multiple csv files with one button (downloadhandler) with R Shiny

Uploading multiple files in Shiny, process the files, rbind the results and return a download

Tag : r , By : Gilmar Souza Jr.

Date : November 23 2020, 03:01 PM

Does that help The error is because the numfiles that you are calculating as numfiles = length(inFile) gives you the number of column in your inFile dataframe. You'll instead have to use numfiles = nrow(inFile) as the number of rows in the dataframe gives you the number of files that you have uploaded.
[EDIT]: The code that is working for me is:

 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)

Comments

No Comments Right Now !

Boards Message :

You Must Login Or Sign Up to Add Your Comments .

Share :

Tags :

Uploading multiple files in Shiny process the files rbind the results and return a download , Uploading multiple files in Shiny , process the files using lapply , rbind the results and return a download , Uploading zip with multiple files into a shiny application , R shiny: download multiple .csv files , scp ,

Download multiple csv files in a zipped folder in Shiny

Tag : r , By : paolodm

Date : March 29 2020, 07:55 AM

this will help The top solution still wasn't working for me. I was working in RStudio Server on a Linux server. The problem was that RStudio couldn't automatically locate the path to the zip executable. I had to manually specify it. In the command line, which zip revealed to me /usr/bin/zip.
So, I just had to set the R_ZIPCMD environment variable at the top of my code.

Sys.setenv(R_ZIPCMD="/usr/bin/zip")

R shiny: download multiple .csv files

Tag : r , By : Hans-Inge

Date : March 29 2020, 07:55 AM

hop of those help? You forgot to put quotes"" in the qmethod argument. Your download handler for classify should be this:

output$download_classify <- downloadHandler(
      filename = function() {
        paste0("rating", ".csv")
      },
      content = function(file) {
        write.table(
          result()$rating,
          file,
          sep = ";",
          col.names = NA,
          qmethod = "double"
        )
      }
    )

Uploading multiple files in Shiny, process the files using lapply, rbind the results and return a download

Tag : r , By : micaleel

Date : March 29 2020, 07:55 AM

like below fixes the issue the problem is when you are passing inFile to lapply you are actually passing only the first column containing the filename. Instead you'll need to passinFile$datapath. The lapply should be like this:

   files3 = lapply(inFile$datapath, 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 
   }