Merge pull request 'Clean participant organization data and join with participant records.' (#3) from enhancement/clean-survey-participant-orgs into master

Reviewed-on: https://git.nickhepler.cloud/nick/tree-tracker-report/pulls/3

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)
-```
+```