function(input, output, session) {
  output$histogram <- renderPlot({
    hist(faithful$eruptions, breaks = input$bins, col = "#4c78a8")
  })

  output$status <- renderText({
    paste("Rendered with", input$bins, "bins")
  })
}