stat202_async/course-solutions.qmd at main · dsass1/stat202_async · GitHub

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
---
title: "Activity Solutions"
execute:
  message: false
  warning: false
  echo: false
from: markdown+emoji
editor_options:
  chunk_output_type: console
---

Activities are graded for completion! It is your responsibility and should be a part of your learning habit to review your activities for correctness. Solutions are posted *after* the due date.

```{r}
#library(tidyverse)
library(dplyr)
library(purrr)
library(gt)
library(stringr)
library(lubridate)

today_ymd <- Sys.Date()
today <- format(today_ymd,"%a %b %d")

agenda_final <- read.csv("documents/agenda_final.csv") %>%
  mutate(time_due = today_ymd - as.Date(due_date),
         show = ifelse(today_ymd > as.Date(due_date), 1, 0))


agenda_show <- agenda_final %>%
  filter(show == 1)

```

```{r}
agenda_show %>%
  select(Solutions) %>%
  #t() %>%
  as.data.frame() %>%
  filter(Solutions != "") %>%
  gt() %>%
  fmt_markdown(columns = c(Solutions) )%>%
  cols_align(align = "left") %>%
  tab_options(column_labels.hidden = TRUE,
              table.align = "left",
              table_body.border.top.color = "white",
              table_body.border.bottom.color = "white",
              table_body.hlines.color = "white",
              table.width = pct(100))

```

<br><br>

```{r echo = FALSE}
knitr::knit_exit()
```