Shiny download file not working

Question

I am creating R Shiny application in which I have a dropdown (selectInput) of documents list and a download button. So functionality is Users will select a document from the list and download that doc using download button.

in UI.R

  tabItem(tabName = "Downloads",
                selectInput("filenames", "Choose a document to download:",list.files(path="/srv/shiny-server/apps/dsw/files")),
  downloadButton('downloadData', 'Download')),

in Server.R

        datasetInput <- reactive({
switch(input$filenames,input$filenames)
   })

output$downloadData <- downloadHandler(
filename = function() { 
paste(input$filenames) 
},
content = function(file) {
write.csv(datasetInput(), file)
}
)

These documents I have placed on Linux server in the www folder of my shiny application.

myapp

--app.R
--files
   -- Doc1.doc
   -- Doc2.csv

When I run the application, it just downloads empty .csv or .docx file but not the actual file from server.

Where is your datasetInput() function? Please, make reproducable code so we can identify the error. — AK47

Sourabh Potnis Sourabh Potnis · Accepted Answer · 2016-02-02T08:01:06

Solved it as follows:

UI.R

 tabItem(tabName = "Downloads",
            selectInput("filenames", "Choose a document to download:",list.files(path="/srv/shiny-server/apps/files")),
 downloadButton('downloadData', 'Download'))

Server.R

output$downloadData <- downloadHandler(
filename = function() {
paste(input$filenames, sep='')
},
content = function(file) {
myfile <- paste0('/srv/shiny-server/apps/files/',input$filenames, collapse = NULL)
  file.copy(myfile, file)
}
)

Shiny download file not working

1 Answers