From 212c5fea5a04e1bcda72ea5b530a64650bb90d51 Mon Sep 17 00:00:00 2001
From: Nick Heppler <nick@nickhepler.com>
Date: Mon, 5 May 2025 22:47:44 -0400
Subject: [PATCH] Clean participant organization data and join with participant
 records.

---
 report.Rmd | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/report.Rmd b/report.Rmd
index ddc5a38..a8d776f 100644
--- a/report.Rmd
+++ b/report.Rmd
@@ -527,7 +527,7 @@ survey_data %>%
 
 ## Municipal Activity
 
-```{r}
+```{r municipal-activity-table}
 survey_data %>%
   mutate(`Participant Municipality (Optional)` = case_when(
     str_starts(`Participant Municipality (Optional)`, "c_") ~ str_replace(`Participant Municipality (Optional)`, "^c_", "") %>% paste0(" (city)"),
@@ -539,6 +539,19 @@ create_summary_table("Participant Municipality (Optional)", "Number of Trees Pla
 ```
 
 ## Organizaiton Activity
+```{r organization-activity-table}
+survey_data %>%
+  inner_join(participant_organizations, by = c("GlobalID" = "ParentGlobalID")) %>%
+  filter(!(is.na(`Participant Organization (Optional)`) & is.na(`Other (Optional)`))) %>%
+  filter(!(tolower(`Participant Organization (Optional)`) == "other" & is.na(`Other (Optional)`))) %>%
+  mutate(`Participant Organization (Optional)` = ifelse(
+    tolower(`Participant Organization (Optional)`) == "other" & !is.na(`Other (Optional)`),
+    `Other (Optional)`,
+    `Participant Organization (Optional)`
+  )) %>%
+  mutate(`Participant Organization (Optional)` = str_replace_all(`Participant Organization (Optional)`, "_", " ")) %>%
+  create_summary_table("Participant Organization (Optional)", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
+```
 
 # Location Analysis {.tabset}
 ```{r func-plot_geographic_data, echo=TRUE}
@@ -787,4 +800,4 @@ survey_data %>%
 survey_data %>%
   filter(!is.na(`Disadvantaged Communities Indicator`), na.rm = TRUE) %>%
   create_summary_table("Municipality", "Number of Trees Planted (Required)", remove_na = FALSE, table_font_size = 16)
-```
+```
\ No newline at end of file