shiny2 • test.package

This doesn’t work with vignette('shiny2', package = "test.package").

Here are two Shiny widgets

Number of bins:

Bandwidth adjustment:

…that build a histogram.

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")
})