course-schedule.qmd

---
title: "STAT 202: Introduction to Statistics and Data Science"
editor_options: 
  chunk_output_type: console
execute:
  message: false
  warning: false
  echo: false
  
from: markdown+emoji
---

This page contains an outline of the topics, content, and assignments for the quarter. If you miss a class it is **your responsibility** to catch up on missed work. That means review the slides, complete the activity, submit any homework, and attend office hours if you need help.

```{r, echo = FALSE, warning = FALSE, message = FALSE}
#library(tidyverse)
library(gt)
library(gtExtras)
library(lubridate)
library(dplyr)
library(purrr)

agenda_final <- read.csv("documents/agenda_final.csv") %>% 
  select(-c(due_ymd, date_ymd, participate, callout, agenda1, agenda2, agenda3, agenda4, agenda5, reading_hw, Lectures, Solutions, Solution_video)) %>% 
  mutate(Week = as.character(Week)) %>% 
  mutate(due = ifelse(is.na(submit_act) & is.na(Tutorial), " ", due) )

agenda_final[is.na(agenda_final)] <- " " 

agenda_final %>% 
  mutate(Slides = map(Slides, glue::glue),
         Activity = map(Activity, glue::glue),
         submit_act = map(submit_act, glue::glue),
         Tutorial = map(Tutorial, glue::glue)) %>%
  gt() %>% 
  cols_move_to_start(
    columns = Week) %>% 
  fmt_markdown(columns = c(Week, Reading, Slides, Activity, submit_act, Tutorial) ) %>% 
  gt_theme_espn() %>% 
  tab_options(table.width = pct(100),
              table_body.hlines.color = "#4E2A84",
              column_labels.background.color = "#4E2A84",
             row_group.background.color = "#D8D6D6")  %>% 
  tab_spanner(
    label = "Prepare",
    columns = c(Reading)
  ) %>% 
  tab_spanner(
    label = "Agenda",
    columns = c(Slides, Activity)
  ) %>% 
  tab_spanner(
    label = "Homework",
    columns = c(submit_act, Tutorial, due)
  ) 
```