mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-09 14:15:40 -05:00
d7391b19bc
* - Convert all example apps to single file app.R file - Make relevant updates to Readmes to match up with app.R structure - Add color to plots (RStudio blue) - In 04_mpg example: Show outliers by default, as opposed to hide, since this is more routine - In 06_tabsets and 08_html examples: Don't name random data vector "data" - Add extensive comments to app.R files and use consistent formatting of comments across examples - In 09_upload example: Use req() to check for NULL entry * add news entry summarizing changes * use true RStudio blue, #75AADB * Conver shinyApp calls at the end to drop argument name in examples 3-11, except for the custom HTML example. Kept them in for examples 1&2 for completeness in first exporuse to function. * Pull news items that got added before this PR was merged * Update comment for shinyApp function -- it creates an app object, doesn't run the app
64 lines
1.3 KiB
R
64 lines
1.3 KiB
R
library(shiny)
|
|
|
|
# Define UI for data download app ----
|
|
ui <- fluidPage(
|
|
|
|
# App title ----
|
|
titlePanel("Downloading Data"),
|
|
|
|
# Sidebar layout with input and output definitions ----
|
|
sidebarLayout(
|
|
|
|
# Sidebar panel for inputs ----
|
|
sidebarPanel(
|
|
|
|
# Input: Choose dataset ----
|
|
selectInput("dataset", "Choose a dataset:",
|
|
choices = c("rock", "pressure", "cars")),
|
|
|
|
# Button
|
|
downloadButton("downloadData", "Download")
|
|
|
|
),
|
|
|
|
# Main panel for displaying outputs ----
|
|
mainPanel(
|
|
|
|
tableOutput("table")
|
|
|
|
)
|
|
|
|
)
|
|
)
|
|
|
|
# Define server logic to display and download selected file ----
|
|
server <- function(input, output) {
|
|
|
|
# Reactive value for selected dataset ----
|
|
datasetInput <- reactive({
|
|
switch(input$dataset,
|
|
"rock" = rock,
|
|
"pressure" = pressure,
|
|
"cars" = cars)
|
|
})
|
|
|
|
# Table of selected dataset ----
|
|
output$table <- renderTable({
|
|
datasetInput()
|
|
})
|
|
|
|
# Downloadable csv of selected dataset ----
|
|
output$downloadData <- downloadHandler(
|
|
filename = function() {
|
|
paste(input$dataset, ".csv", sep = "")
|
|
},
|
|
content = function(file) {
|
|
write.csv(datasetInput(), file, row.names = FALSE)
|
|
}
|
|
)
|
|
|
|
}
|
|
|
|
# Create Shiny app ----
|
|
shinyApp(ui, server)
|