vignettes/snippets/shinyeruptions.md

In rstudio/flexdashboard: R Markdown Format for Flexible Dashboards

title: "Old Faithful Eruptions" output: flexdashboard::flex_dashboard runtime: shiny

```{r global, include=FALSE}

load data in 'global' chunk so it can be shared by all users of the dashboard

library(datasets) data(faithful)

Column {.sidebar}
-----------------------------------------------------------------------

Waiting time between eruptions and the duration of the eruption for the
Old Faithful geyser in Yellowstone National Park, Wyoming, USA.

```{r}
selectInput("n_breaks", label = "Number of bins:",
            choices = c(10, 20, 35, 50), selected = 20)

sliderInput("bw_adjust", label = "Bandwidth adjustment:",
            min = 0.2, max = 2, value = 1, step = 0.2)

Column

Geyser Eruption Duration

renderPlot({
  hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks),
       xlab = "Duration (minutes)", main = "Geyser Eruption Duration")

  dens <- density(faithful$eruptions, adjust = input$bw_adjust)
  lines(dens, col = "blue")
})

rstudio/flexdashboard documentation built on Oct. 18, 2023, 11:02 a.m.