mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-02 02:34:57 -05:00
22 lines
445 B
R
22 lines
445 B
R
shinyServer(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)
|
|
}
|
|
)
|
|
})
|