Event agenda added to SWWW

events/2024_08_29_SWWW/index.qmd

@@ -46,6 +46,27 @@ data.
 
 -   🇮🇩 14:00 PM (WIB - Jakarta, Indonesia)
 
+## Agenda
+
+```{r}
+
+agenda <- readr::read_csv(here::here("events/2024_08_29_SWWW/data/tbl-11-openwashdata-events.csv"))
+
+agenda  |> 
+    dplyr::select(-start_time, -end_time, -speaker_link, -affiliation_link) |>
+    dplyr::relocate(time) |> 
+    dplyr::mutate(speaker = dplyr::case_when(
+        stringr::str_detect(speaker, "NA") == TRUE ~ " - ",
+        TRUE ~ speaker
+    )) |> 
+    dplyr::mutate(affiliation = dplyr::case_when(
+        stringr::str_detect(affiliation, "NA") == TRUE ~ " - ",
+        TRUE ~ affiliation
+    )) |>
+    dplyr::rename_with(~stringr::str_to_title(.x), everything()) |> 
+    knitr::kable()
+```
+
 ## Slides
 
 Will be shared following the event.