mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-02 02:34:57 -05:00
30 lines
707 B
R
30 lines
707 B
R
library(shiny)
|
|
|
|
# Define UI for miles per gallon application
|
|
shinyUI(fluidPage(
|
|
|
|
# Application title
|
|
titlePanel("Miles Per Gallon"),
|
|
|
|
# Sidebar with controls to select the variable to plot against
|
|
# mpg and to specify whether outliers should be included
|
|
sidebarLayout(
|
|
sidebarPanel(
|
|
selectInput("variable", "Variable:",
|
|
c("Cylinders" = "cyl",
|
|
"Transmission" = "am",
|
|
"Gears" = "gear")),
|
|
|
|
checkboxInput("outliers", "Show outliers", FALSE)
|
|
),
|
|
|
|
# Show the caption and plot of the requested variable against
|
|
# mpg
|
|
mainPanel(
|
|
h3(textOutput("caption")),
|
|
|
|
plotOutput("mpgPlot")
|
|
)
|
|
)
|
|
))
|