inst/shiny/example/server.R

source("global.R")

function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

  output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
  })
}
ku-awdc/vis2x2 documentation built on April 15, 2021, 1:46 p.m.