mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-04 03:35:06 -05:00
13 lines
309 B
R
13 lines
309 B
R
shinyUI(fluidPage(
|
|
titlePanel('Downloading Data'),
|
|
sidebarLayout(
|
|
sidebarPanel(
|
|
selectInput("dataset", "Choose a dataset:",
|
|
choices = c("rock", "pressure", "cars")),
|
|
downloadButton('downloadData', 'Download')
|
|
),
|
|
mainPanel(
|
|
tableOutput('table')
|
|
)
|
|
)
|
|
)) |