inst/JaksNov13/SH_hello/server.R

In jayemerson/ShinyHelper: Making Shiny Application Creation Easier (maybe)

require(ShinyHelper)

shinyServer(function(input, output) {

  # shinyServer content:
  output$distplot <- renderPlot({
    
  x    <- faithful[, 2]  # Old Faithful Geyser data
  bins <- seq(min(x), max(x), length.out = input$bins + 1)
  hist(x, breaks = bins, col = "darkgray", border = "white")

  })


})