Data Products Final

For more details on authoring R presentations please visit https://support.rstudio.com/hc/en-us/articles/200486468.

• Bullet 1
• Bullet 2
• Bullet 3

## Only run examples in interactive R sessions
if (interactive()) {

  ui <- fluidPage(
    selectInput("variable", "Variable:",
                c("Cylinders" = "cyl",
                  "Transmission" = "am",
                  "Gears" = "gear")),
    tableOutput("data")
  )

  server <- function(input, output) {
    output$data <- renderTable({
      mtcars[, c("mpg", input$variable), drop = FALSE]
    }, rownames = TRUE)
  }

  shinyApp(ui, server)
}