attendance-slides.Rmd

---
title: "SOC 1120-01"
subtitle: "Fall 2019 Attendance"
author: "Christopher Prener, Ph.D."
institute: "Saint Louis University"
date: "2019/08/19 (updated: `r Sys.Date()`)"
output:
  xaringan::moon_reader:
    lib_dir: libs
    nature:
      highlightStyle: github
      highlightLines: true
      countIncrementalSlides: false
---

```{r setup, include=FALSE}
options(htmltools.dir.version = FALSE)

# additional dependencies
library(readr)
library(qrcode)

# load data
table <- read_csv(file = "data.csv")
```

# Attendance - `r table$date_str[[1]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[1]])
```

---

# Attendance - `r table$date_str[[2]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[2]])
```

---

# Attendance - `r table$date_str[[3]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[3]])
```

---

# Attendance - `r table$date_str[[4]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[4]])
```

---

# Attendance - `r table$date_str[[5]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[5]])
```

---

# Attendance - `r table$date_str[[6]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[6]])
```

---

# Attendance - `r table$date_str[[7]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[7]])
```

---

# Attendance - `r table$date_str[[8]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[8]])
```

---

# Attendance - `r table$date_str[[9]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[9]])
```

---

# Attendance - `r table$date_str[[10]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[10]])
```

---

# Extra Credit Attendance - `r table$date_str[[11]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[11]])
```

---

# Attendance - `r table$date_str[[12]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[12]])
```

---

# Attendance - `r table$date_str[[13]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[13]])
```

---

# Attendance - `r table$date_str[[14]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[14]])
```

---

# Attendance - `r table$date_str[[15]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[15]])
```

---

# Attendance - `r table$date_str[[16]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[16]])
```

---

# Attendance - `r table$date_str[[17]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[17]])
```

---

# Attendance - `r table$date_str[[18]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[18]])
```

---

# Attendance - `r table$date_str[[19]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[19]])
```

---

# Attendance - `r table$date_str[[20]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[20]])
```

---

# Attendance - `r table$date_str[[21]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[21]])
```

---

# Attendance - `r table$date_str[[22]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[22]])
```

---

# Attendance - `r table$date_str[[23]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[23]])
```

---

# Attendance - `r table$date_str[[24]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[24]])
```

---

# Attendance - `r table$date_str[[25]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[25]])
```

---

# Attendance - `r table$date_str[[26]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[26]])
```

---

# Attendance - `r table$date_str[[27]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[27]])
```

---

# Attendance - `r table$date_str[[28]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[28]])
```

---

# Attendance - `r table$date_str[[29]]`
### SOC 1120-01

```{r echo=FALSE, out.height="350px"}
qrcode_gen(table$link[[29]])
```