inst/examples/10_download/server.R

In ymd526442121/Rproject_shiny: Web Application Framework for R

function(input, output) {
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })
  
  output$table <- renderTable({
    datasetInput()
  })
  
  output$downloadData <- downloadHandler(
    filename = function() { 
		 paste(input$dataset, '.csv', sep='') 
	 },
    content = function(file) {
      write.csv(datasetInput(), file)
    }
  )
}