In jr-packages/jrShiny: R Shiny Exercises

## The UI
sliderInput("n", "Sample size", min=10, max=50, value=25)

# the message=FALSE chunk option stops the messages from the library() command printing after we knit
library("ggplot2")
renderText(input$n)

renderPlot({
  ggplot(data.frame(x = 1:input$n, 
                    y = runif(input$n)), 
         aes(x = x, y = y)) + 
    geom_point()
  ## or plot(runif(input$n))
})

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