#
# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
# 
#    http://shiny.rstudio.com/
#

beatles_names <- c("John", "Paul", "George", "Ringo")

# Define UI for application that draws a histogram

shinyUI(bootstrapPage(
  h3("Frequency of Beatles names over time"),
  numericInput("startyear", "Enter starting year", 
               value = 1960, min = 1880, max = 2014, step = 1),
  numericInput("endyear", "Enter ending year",
               value = 1970, min = 1880, max = 2014, step = 1),
  checkboxGroupInput('names', 'Names to display:',
                     sort(unique(beatles_names)),
                     selected = c("Georege", "Paul")),
  plotOutput("plot")
))