report.Rmd

---
title: "Open Case Studies: `r input$title` "
output:
#   learnr::tutorial:
#     allow_skip: true
  html_document:
    runtime: shiny_prerendered
    self_contained: yes
    code_download: yes
    highlight: tango
    number_sections: no
    theme: flatly
    toc: yes
    toc_float: yes


---



<style>
#TOC {
  background: url("`r input$logo`");
  background-size: contain;
  padding-top: 240px !important;
  background-repeat: no-repeat;
  }
</style>

<p align="center">
  <img width="500" src="`r input$mainimage`">
</p>

#### [source](`r input$mainimage`)

## `r input$header1`


`r input$narrative1`


<p align="center">
  <img width="500" src="`r input$image1`">
</p>

#### [source](`r input$image1`)


***

## `r input$header2`

`r input$narrative2`

<p align="center">
  <img width="500" src="`r input$image2`">
</p>

#### [source](`r input$image2`)

<p align="center"><iframe width="560" height="315" src="https://www.youtube.com/embed/`r input$video`" frameborder="0" allowfullscreen></iframe> </p>

***

## `r input$header3`

`r input$narrative3`

<!-- <p align="center"> -->
<!--   <img width="500" src="`r input$image3`"> -->
<!-- </p> -->

<!-- #### source: `r input$image3` -->

***


```{r letter-a, echo=FALSE}
 # library(learnr)
 # question("What number is the letter A in the English alphabet?",
 #   answer("8"),
 #   answer("14"),
 #   answer("1", correct = TRUE),
 #   answer("23")
 # )
```