week10UI

#
# 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/
#

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("Temp Name"),

  # Sidebar with a slider input for number of bins
  sidebarPanel(numericInput("x_min", "Min Years:", 1850, min=1850, max=2020),
                numericInput("x_max", "Max Years:", 2020, min=1850, max=2020)
                ),


    # Show a plot of the generated distribution
    mainPanel(
       plotOutput("distPlot")

    )
  )
)