pkgdown/assets/snippets/shiny.md

In rstudio/learnr: Interactive Tutorials for R

```{r, echo=FALSE} sliderInput("bins", "Number of bins:", min = 1, max = 50, value = 30) plotOutput("distPlot")

```{r, context="server"}
output$distPlot <- renderPlot({
  x <- faithful[, 2]  # Old Faithful Geyser data
  bins <- seq(min(x), max(x), length.out = input$bins + 1)
  hist(x, breaks = bins, col = 'darkgray', border = 'white')
})

rstudio/learnr documentation built on Sept. 6, 2024, 11:06 p.m.