File download example for R Shiny

README.md

To create file download button, there should be a downloadButton on the client side, and a corresponding downloadHandler on the server side.

DESCRIPTION

Title: Download File
Author: RStudio, Inc.
AuthorUrl: http://www.rstudio.com/
License: MIT
DisplayMode: Showcase
Tags: file-download
Type: Shiny

server.R

shinyServer(function(input, output) {
  datasetInput <- reactive({
    # Fetch the appropriate data object, depending on the value
    # of input$dataset.
    switch(input$dataset,
           "Rock" = rock,
           "Pressure" = pressure,
           "Cars" = cars)
  })
  
  output$table <- renderTable({
    datasetInput()
  })
  
  # downloadHandler() takes two arguments, both functions.
  # The content function is passed a filename as an argument, and
  #   it should write out data to that filename.
  output$downloadData <- downloadHandler(

    # This function returns a string which tells the client
    # browser what name to use when saving the file.
    filename = function() {
		  paste(input$dataset, input$filetype, sep = ".")
	  },

    # This function should write data to a file given to it by
    # the argument 'file'.
    content = function(file) {
      sep <- switch(input$filetype, "csv" = ",", "tsv" = "\t")

      # Write to a file specified by the 'file' argument
      write.table(datasetInput(), file, sep = sep,
        row.names = FALSE)
    }
  )
})

ui.R

shinyUI(fluidPage(
  titlePanel('File download'),
  sidebarLayout(
    sidebarPanel(
      selectInput("dataset", "Choose a dataset:", 
                  choices = c("Rock", "Pressure", "Cars")),
      radioButtons("filetype", "File type:",
                   choices = c("csv", "tsv")),
      downloadButton('downloadData', 'Download')
    ),
    mainPanel(
      tableOutput('table')
    )
  )
))

Hi Winston, I tried to reproduce this example. Everything works fine except that the file is actually not saved. After clicking the save button in the pop-out portal, nothing happens and no such file can be found in the desired location.
Any idea what happened?

Thanks!

Seems to be a problem with RStudio. I can't save files, too, while I am using the RStudio app window. If I click "Open in browser", it works fine. I'm not sure, but I think downloads within the RStudio window worked fine a few days ago...

Same here. Any chance to fix this bug?

Same with me. Should be nice to have functionality, for trying out POC on local machine.
Works with browsers, though, so no big deal after all!
Thanks.

Is there any way I can download the multiple outputs in a single file ?
Example: Summary and structure of a data in a single file?

Is there a way to add download button to shiny flexdashboard?

@VHAnalytos you can zip the files and send the zip to the user as a response, see the accepted response in http://stackoverflow.com/questions/26881368/shiny-download-zip-archive for an example (list file paths in fs variable).