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!

- [**Content**](/content/index.qmd) ({{< fa book-open-reader >}}): This page contains the readings, slides, and recorded lectures for the topic. Read and watch these first.

- [**Lesson**](/lesson/index.qmd) ({{< fa chalkboard-teacher >}}): This page contains an interactive lesson that teaches you the principles and code you need to know. Go through these after doing the content.

- [**Example**](/example/index.qmd) ({{< fa laptop-code >}}): This page contains fully annotated R code that you can use as a reference for creating your own visualizations. This is only a reference page—you don’t have to necessarily do anything here. Each section also contains videos of me live coding the examples so you can see what it looks like to work with R in real time. This page will be *very* helpful as you work on your assignments.

- [**Assignment**](/assignment/index.qmd) ({{< fa pen-ruler >}}): This page contains the instructions for either the session exercise (1–3 brief tasks), or for the two mini projects and final project. **Assignments are due by 11:59 PM on the Monday after their corresponding sessions.** That’s confusing in sentence form—see the schedule table below to see how it works.

:::::: {.row .d-flex .justify-content-center}
::::: {.col-12 .col-sm-10 .col-md-6}
:::: {.card .bg-danger .text-white}
::: {.card-body}

**tl;dr**: You should follow this general process for each session:

- Do everything on the content page ({{< fa book-open-reader >}})
- Work through the lesson page ({{< fa chalkboard-teacher >}})
- Complete the assignment ({{< fa pen-ruler >}}) while referencing the example ({{< fa laptop-code >}})

:::
::::
:::::
::::::

---

::: {.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]] %>% 
    kbl(escape = FALSE, align = "rlcccc", table.attr = 'class="schedule-table"') %>% 
    kable_styling() %>% 
    column_spec(1, width = "20%", extra_css = "padding-right: 20px;") %>% 
    column_spec(2, width = "48%") %>% 
    column_spec(3:6, width = "8%")
  
  cat(tbl)
}
```

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

:::