inst/shiny-examples/Regression/server.R

# This is the server logic for a Shiny web application.# You can find out more about building applications with Shiny here:# # http://www.rstudio.com/shiny/#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 binshist(x, breaks = bins,col='darkgray', border ='white')})})