Update Filtering.R

Analysis filter bug fix
USEPA · Sep 13, 2024 · 1b8fecc · 1b8fecc
1 parent 33d961b
commit 1b8fecc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Filtering.R b/R/Filtering.R
@@ -300,7 +300,7 @@ TADA_AnalysisDataFilter <- function(.data,
       !ActivityMediaName %in% c("WATER", "Water", "water") ~ ActivityMediaName
     )) %>%
     # add TADA.Media.Flag for additional rows based on TADA.MonitoringLocationTypeName
-    dplyr::left_join(sw.sitetypes, by = "TADA.MonitoringLocationTypeName") %>%
+    dplyr::left_join(sw.sitetypes, by = "MonitoringLocationTypeName") %>%
     dplyr::mutate(
       TADA.Media.Flag = ifelse(is.na(TADA.Media.Flag),
         ML.Media.Flag, TADA.Media.Flag