mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-07 05:04:58 -05:00
22 lines
630 B
R
22 lines
630 B
R
library(shiny)
|
|
|
|
# Define server logic required to draw a histogram
|
|
function(input, output) {
|
|
|
|
# Expression that generates a histogram. The expression is
|
|
# wrapped in a call to renderPlot to indicate that:
|
|
#
|
|
# 1) It is "reactive" and therefore should be automatically
|
|
# re-executed when inputs change
|
|
# 2) Its output type is a plot
|
|
|
|
output$distPlot <- renderPlot({
|
|
x <- faithful[, 2] # Old Faithful Geyser data
|
|
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 = 'darkgray', border = 'white')
|
|
})
|
|
|
|
}
|