schedule.qmd

---
title: "Schedule"
sidebar: false
toc: false
page-layout: full
---

```{r packages-data, include=FALSE}
library(tidyverse)
library(knitr)
library(kableExtra)

withr::with_dir(here::here(), {
  schedule_nested <- targets::tar_read(schedule_page_data)
  targets::tar_load(schedule_ical_file)
})

base_url <- yaml::read_yaml(here::here("_quarto.yml"))$website$`site-url`
ical_url_absolute <- paste0(base_url, "/", schedule_ical_file)
```

::::: {.schedule-page}

Here's your roadmap for the semester!

- [**Class**](/class/index.qmd) ({{< fa book-open-reader >}}): This page contains the readings for the class session. Read these **before** our in-person class.

- [**Assignment**](/assignment/index.qmd) ({{< fa pen-ruler >}}): This page contains the instructions for each assignment. Assignments are due by **11:59 PM** on the day they're listed.

:::: {.callout-tip}

## Subscribe!

You can subscribe to this calendar URL in Outlook, Google Calendar, or Apple Calendar:

::: {.grid}

::: {.g-col-12 .g-col-md-2}
<p class="download-btn"><a class="btn btn-danger btn-sm" href="/`r schedule_ical_file`" role="button">{{< fa calendar-alt >}} &emsp;Download</a></p>
:::

::: {.g-col-12 .g-col-md-10}
<p><input class="form-control" type="text" value="`r ical_url_absolute`" onclick="this.select()" readonly></p>
:::

:::

::::


```{r build-table, include=FALSE}
show_table <- function(group_id) {
  # Add a heading
  cat(as.character(paste("\n\n###", schedule_nested$group[[group_id]], "\n\n")))
  
  # Make the table
  tbl <- schedule_nested$data[[group_id]] %>% 
    select(-subgroup) %>% 
    kbl(escape = FALSE, align = "rlcc", table.attr = 'class="schedule-table"') %>% 
    kable_styling() %>% 
    column_spec(1, width = "15%", extra_css = "padding-right: 20px;") %>% 
    column_spec(2, width = "55%") %>% 
    column_spec(3:4, width = "10%") %>% 
    pack_rows(index = schedule_nested$subgroup_index[[group_id]],
              label_row_css = "border-bottom: 1px solid #adb5bd;")
  
  cat(tbl)
}
```

```{r show-table, echo=FALSE, results="asis"}
walk(seq(1, nrow(schedule_nested)), ~show_table(.x))
```

:::::