testing whether rmarkdown shiny can work according to jupyterhub/repo…

…2docker#891

README.md

@@ -22,11 +22,10 @@ Example plot using R's `mtcars` dataset in a Juputer Notebook
 
 ## ~~Analysis 3: RMarkdown rendered as HTML in Shiny app~~
 
-[![Analysis 3: RStudio Binder](https://img.shields.io/badge/3-RStudio-808080.svg?style=for-the-badge)](https://mybinder.org/v2/gh/informatics-lab/binder_rstudio_jupyterlab_example/main?urlpath=rstudio&view=rmarkdown)
+[![Analysis 3: RStudio Binder](https://img.shields.io/badge/3-folder-808080.svg?style=for-the-badge)](https://mybinder.org/v2/gh/informatics-lab/binder_rstudio_jupyterlab_example/main?urlpath=shiny/analysis-3/)
 
-[![Analysis 3: RStudio Binder](https://img.shields.io/badge/3-RStudio-808080.svg?style=for-the-badge)](https://mybinder.org/v2/gh/informatics-lab/binder_rstudio_jupyterlab_example/main?urlpath=rstudio/rmarkdown)
+[![Analysis 3: RStudio Binder](https://img.shields.io/badge/3-maindir-808080.svg?style=for-the-badge)](https://mybinder.org/v2/gh/informatics-lab/binder_rstudio_jupyterlab_example/main?urlpath=shiny)
 
-[![Analysis 3: RStudio Binder](https://img.shields.io/badge/3-RStudio-808080.svg?style=for-the-badge)](https://mybinder.org/v2/gh/informatics-lab/binder_rstudio_jupyterlab_example/main?urlpath=rmarkdown)
 
 
 ## Analysis 4: Python Jupyter Notebook

index.Rmd

@@ -0,0 +1,30 @@
+---
+runtime: shiny
+output: html_document
+---
+# This is a title
+
+
+## This is a plot, innit.
+
+```{r echo=FALSE}
+library(tidyverse)
+```
+
+```{r echo=TRUE}
+ggplot(mtcars, aes(x=cyl, y=mpg)) + geom_point()
+```
+
+
+```{r echo=TRUE}
+plot(cars)
+```
+
+## Funky widgets, maaaaaan!
+```{r echo = FALSE}
+selectInput("n_breaks", label = "Number of wheelie bins:",
+              choices = c(10, 20, 35, 50), selected = 20)
+
+sliderInput("bw_adjust", label = "Bandwidth ... width:",
+              min = 0.2, max = 2, value = 1, step = 0.2)
+```