Index.Rmd

---
title: "Introduction to R, from wrangling to visualization"
bibliography: packages.bib
output: 
  learnr::tutorial:
    allow_skip: true
runtime: shiny_prerendered
---

<!-- Warning: there must always be a new line before a code chunk and end of file -->
<!-- If not learnr puts odd columns across the html file -->

<!-- Also, we can have either `solutions` or `hints`, not both -->

![](images/INRES_Logo.png){width=2in}
![](images/Uni_Bonn_Picture.png){width=2in}
![](images/ZEF_Logo.png){width=2in}

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
# library(datasauRus) # for animation
# library(gganimate) # for animation
library(ggplot2)
# library(gifski) # for animation
library(learnr)
    tutorial_options(exercise.timelimit = 200)
library(purrr)
library(readr)
library(rmarkdown)
library(tidyverse)
  library(dplyr)
  library(magrittr)
# load the data
participants_data <- read.csv("participants_data.csv")
```


```{r, warning=FALSE, include = FALSE}
#Automatically write R package citation entries to a .bib file
knitr::write_bib(c(.packages(), 
                  # 'datasauRus', 
                   #'gganimate',
                   'ggplot2',
                   'learnr', 
                   'purrr',
                   'readr',
                   'rmarkdown', 
                   'tidyverse'), 'packages.bib')
```

<!-- List of Lecture RMD files to be compiled -->

```{r child_Intro, child="Introduction.Rmd"}
```

```{r child_Wrangle1, child="Data_Wrangling_1.Rmd"}
```

```{r child_Wrangle2, child="Data_Wrangling_2.Rmd"}
```

```{r child_Vis, child="Data_Visualization.Rmd"}
```

<!-- ```{r child_Vis, child="Data_Animation.Rmd"} -->
<!-- ``` -->

## References