36 lines
734 B
R
36 lines
734 B
R
|
# Rely on the 'WorldPhones' dataset in the datasets
|
||
|
|
# package (which generally comes preloaded).
|
||
|
|
library(datasets)
|
||
|
|
|
||
|
|
# Use a fluid Bootstrap layout
|
||
|
|
fluidPage(
|
||
|
|
|
||
|
|
tags$head(
|
||
|
|
tags$link(
|
||
|
|
rel = "icon",
|
||
|
|
type = "image/x-icon",
|
||
|
|
href = "http://localhost:1984/default.ico")
|
||
|
|
),
|
||
|
|
|
||
|
|
# Give the page a title
|
||
|
|
titlePanel("Telephones by region"),
|
||
|
|
|
||
|
|
# Generate a row with a sidebar
|
||
|
|
sidebarLayout(
|
||
|
|
|
||
|
|
# Define the sidebar with one input
|
||
|
|
sidebarPanel(
|
||
|
|
selectInput("region", "Region:",
|
||
|
|
choices=colnames(WorldPhones)),
|
||
|
|
hr(),
|
||
|
|
helpText("Data from AT&T (1961) The World's Telephones.")
|
||
|
|
),
|
||
|
|
|
||
|
|
# Create a spot for the barplot
|
||
|
|
mainPanel(
|
||
|
|
plotOutput("phonePlot")
|
||
|
|
)
|
||
|
|
|
||
|
|
)
|
||
|
|
)
|