chapters/2/2.4/app.R

In brunocarlin/mastering_shiny: Mastering Shiny Examples

library(shiny)
ui <- fluidPage(
    selectInput("dataset", label = "Dataset", choices = ls("package:datasets")),
    verbatimTextOutput("summary"),
    tableOutput("table")
)
server <- function(input, output, session) {
}
shinyApp(ui, server)