ui <- fluidPage(
  pageWithSidebar(
    headerPanel("Analysis"),

    sidebarPanel(
      sliderInput("ABC", "ABC Range",
                  min = 0, max = 400, value = c(0,400), step = 10),
      sliderInput("DEF", "DEF Range",
                  min = 0, max = 400, value = c(0,400), step = 10),
      pickerInput("HIJ","HIJ",
                  choices = HIJ.unique,
                  options = list('actions-box' = TRUE),
                  multiple = TRUE),
      pickerInput("Year","Year",
                  choices = Year.unique,
                  options = list('actions-box' = TRUE),
                  multiple = TRUE)
    ),

    mainPanel(
      plotOutput("myplot")
  ) 
 ) 
)