schedule.qmd

---
title: Course Schedule
---

```{r setup, echo=FALSE, message=FALSE, warning=FALSE}
source(here::here("R", "settings.R"))
```

```{r echo=FALSE}
# Setup some common values
fa <- list(
  assignment = '<i class="fas fa-book-reader"></i>',
  class      = '<i class="fas fa-laptop-code"></i>',
  project    = '<i class="fas fa-pencil-ruler"></i>'
)

# Make the schedule data frame
schedule <- get_schedule() %>%
  mutate(
    # Make projects column
    project = ifelse(
      is.na(project_name), NA,
      paste0("<b>", project_name, "</b><br>", project_description)),
    # Build links
    class = ifelse(
      is.na(class_n), paste0("<b>", class_name, "</b>"),
      paste0(
          '<a href="class/', class_stub, '.html">',
          fa$class, '</a><b> ', class_name, "</b><br> ", class_description)),
    assignments = ifelse(is.na(assign_n), "",
        paste0(
        '<a href="hw/', assign_n, "-", assign_stub, '.html">',
        fa$assignment, '</a><b> ', assign_name, "</b><br>Due: ", assign_due_md)),
    final = ifelse(
      is.na(final_name), NA,
      paste0(
          '<a href="project/', final_stub, '.html">',
        fa$project, '</a><b> ', final_name, "</b><br>Due: ", final_due_md))
  )

highlight <- which(Sys.Date() > schedule$date)
```

:::{.column-page}

```{r echo=FALSE}
# Make the final schedule
names(schedule) <- str_to_title(names(schedule))
schedule %>%
  rename(` ` = Final) %>%
  select(Week, Date = Date_md, Class, Project, Assignments, ` `) %>%
  kable(format = 'html', escape = FALSE,
        align = c('c', 'c', 'l', 'l', 'l', 'l')) %>%
  kable_styling(full_width = F, bootstrap_options = c("striped", "hover")) %>%
  column_spec(column = 3, width = '18em') %>%
  row_spec(highlight, background = "#e1e1e1")
```

:::