Files
shiny/inst/examples/10_download/ui.R
2012-11-26 21:48:12 -08:00

11 lines
279 B
R

shinyUI(pageWithSidebar(
headerPanel('Downloading Data'),
sidebarPanel(
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars")),
downloadButton('downloadData', 'Download')
),
mainPanel(
tableOutput('table')
)
))