Skip to content

Instantly share code, notes, and snippets.

@trestletech
Last active January 3, 2016 21:29
Show Gist options
  • Save trestletech/8522203 to your computer and use it in GitHub Desktop.
Save trestletech/8522203 to your computer and use it in GitHub Desktop.
A Shiny example using a selectInput in a pageWithSidebar layout but relying on a dataset defined in global.R
# Define a dataset globally which will be available
# both to the UI and to the server.
# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(datasets)
# Trim out the non-consecutive year from
# the 'WorldPhones' dataset (the first row).
myData <- WorldPhones[-1,]
library(shiny)
# Define a server for the Shiny app
shinyServer(function(input, output) {
# Fill in the spot we created for a plot
output$phonePlot <- renderPlot({
# Render a barplot
barplot(myData[,input$region]*1000,
main=input$region,
ylab="Number of Telephones",
xlab="Year")
})
})
library(shiny)
# Define the overall UI
shinyUI(
# Use a fluid Bootstrap layout
fluidPage(
# Give the page a title
titlePanel("Telephones Around the World"),
# Generate a row with a sidebar
sidebarLayout(
# Define the sidebar with one input
sidebarPanel(
selectInput("region", "Region:",
choices=colnames(myData)),
hr(),
helpText("Data from AT&T (1961) The World's Telephones.")
),
# Create a spot for the barplot
mainPanel(
plotOutput("phonePlot")
)
)
)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment