library(stats220)
dr_wang() %>%
  work_hard(on = c("lecture slides", "lab exercise", "assignment", "data")) %>%
  replace_na(with = "fun") %>%
  thank_you(for = "reading :)")