inst/apps/binner/app.R

In malexan/forecastbox: Toolbox of forecasting algorithms wrapped in web application

shinyApp(
    ui = fluidPage(
      sidebarLayout(
        sidebarPanel(sliderInput("n", "Количество групп", 5, 100, 20)),
        mainPanel(plotOutput("hist"))
      )
    ),
    server = function(input, output) {
      output$hist <- renderPlot(
        hist(faithful$eruptions, breaks = input$n,
             col = "skyblue", border = "white",
             main = "Продолжительность извержений гейзера, м")
      )
    }
  )