inst/appweb/helpfiles/plot_help.md

runtime: shiny output: html_document

Here are two Shiny widgets

```{r echo = FALSE} 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)


### ...that build a histogram.

```{r echo = FALSE}
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")
})


carlosperezoft/JENKINS documentation built on May 17, 2019, 7:47 a.m.