shinyUI(fluidPage(

# Application title
titlePanel("Old Faithful Geyser Data of Yash Agarwal at 05-11-22"),

# Sidebar with a slider input for number of bins
sidebarLayout(
    sidebarPanel(
        sliderInput("bins",
                    "Number of bins:",
                    min = 50,
                    max = 200,
                    value = 100)
    ),

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

)) # # This is the server logic 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)

shinyServer(function(input, output) {

output$distPlot <- renderPlot({

    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'red', border = 'black')

})

})