_syllabus.Rmd

---
title: ""
output: html_document
---

```{r child = "_syllabus.Rmd", include=FALSE, eval = FALSE}
```

```{r generate_syllabus, eval = FALSE, echo=FALSE}
## data frame with dates & topics
syl_txt <- data.frame(
  date = qtr,
  lec_topics = lec_topics_html,
  hw_topics = hw_topics_html
)
colnames(syl_txt) <- c("Date", "Topics", "Homework")
## generate table
kable(syl_txt, format = "html", caption = " ", escape = FALSE) %>%
  kable_styling(bootstrap_options = "striped",
                full_width = F,
                position = "left") %>%
  column_spec(1, width = "10em") %>%
  column_spec(2, width = "30em")
```