In jr-packages/jrShiny: R Shiny Exercises

library("shiny")

## The UI
sliderInput("n", "Sample size", 10, 50, 25)
selectInput("dist", "Distribution", choices = c("Uniform", "Normal"))

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

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

# or you can just do it using the reactive() only
# data = reactive({
#   if (input$dist == "Uniform") {
#       runif(input$n)
#   }
#   else {
#     rnorm(input$n)
#   }
# })

renderPlot({
  plot(data())
})
renderText({
  max(data())
})

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