0byt3m1n1
Path:
C:
/
Program Files
/
RStudio
/
resources
/
app
/
resources
/
templates
/
[
Home
]
File: shiny_presentation.Rmd
```{r setup, include=FALSE} knitr::opts_chunk$set(echo = FALSE) ``` ## Shiny Presentation This R Markdown presentation is made interactive using Shiny. The viewers of the presentation can change the assumptions underlying what's presented and see the results immediately. To learn more, see [Interactive Documents](http://rmarkdown.rstudio.com/authoring_shiny.html). ## Interactive Plot ```{r eruptions} inputPanel( 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) ) 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") }) ``` ## Bullets - Bullet 1 - Bullet 2 - Bullet 3 ## R Output ```{r cars} summary(cars) ```