-
Notifications
You must be signed in to change notification settings - Fork 3
/
schedule.qmd
75 lines (54 loc) Β· 2.07 KB
/
schedule.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
---
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 >}}  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))
```
:::::