fluidPage(

    ## Application title
    headerPanel("Old Faithful Eruptions"),
  
    ## Sidebar with controls
    sidebarPanel(width = 5,
                 selectInput("n_breaks", label = "Number of bins:",
                             choices = c(10, 20, 35, 50), selected = 20),
  
                 sliderInput("bw_adjust", label = "Bandwidth adjustment:",
                             min = 0.2, max = 2, value = 1, step = 0.2,
                             animate = TRUE)),
  
    ## Show plot
    mainPanel(
        plotOutput("plot")
    )
)