In jr-packages/jrShiny: R Shiny Exercises

library("shiny")

## The UI
sliderInput("n", "Sample size", 10, 50, 25)
selectInput("dist", "Distribution", c("Uniform", "Normal"))
actionButton("plot", "Plot it")
# or actionLink("plot", "Plot it")

get_data = function(n, dist) {
  if(dist=="Uniform"){
   data = runif(n) 
  }
  else {
    data = rnorm(n)
  }
  return(data)
}

data = eventReactive(input$plot {
  get_data(input$n, input$dist)
})

renderPlot(plot(data()))
renderText(max(data()))

jr-packages/jrShiny documentation built on Feb. 16, 2020, 9:13 p.m.