16 lines
449 B
R
16 lines
449 B
R
library(shiny)
|
|
|
|
# Define server logic required to draw a histogram
|
|
shinyServer(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 re-execute automatically
|
|
# when inputs change
|
|
# 2) Its output type is a plot
|
|
|
|
output$distPlot <- renderPlot({
|
|
plot(faithful$eruptions, faithful$waiting)
|
|
})
|
|
}) |