server.R

library(shiny)

function(input, output, session) {

    output$distPlot <- renderPlot({

        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        hist(x, breaks = bins, col = 'purple', border = 'pink',
             xlab = 'Waiting time to rent a home (in days)',
             main = 'Histogram of Home rentals')

    })

}

## function(input, output, session) {
## 
##     output$distPlot <- renderPlot({
## 
##         x    <- faithful[, 2]
##         bins <- seq(min(x), max(x), length.out = input$bins + 1)
##         hist(x, breaks = bins, col = 'purple', border = 'pink',
##              xlab = 'Waiting time to rent a home (in days)',
##              main = 'Histogram of Home rentals')
## 
##     })
## 
## }