Update Filtering.R

USEPA · Sep 13, 2024 · 33d961b · 33d961b
1 parent 72deada
commit 33d961b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/Filtering.R b/R/Filtering.R
@@ -280,10 +280,9 @@ TADA_AnalysisDataFilter <- function(.data,
   sw.sitetypes <- utils::read.csv(system.file("extdata", "WQXMonitoringLocationTypeNameRef.csv", package = "EPATADA")) %>%
     dplyr::select(Name, TADA.Media.Flag) %>%
     dplyr::rename(ML.Media.Flag = TADA.Media.Flag) %>%
-    dplyr::mutate(TADA.MonitoringLocationTypeName = toupper(Name)) %>%
+    dplyr::mutate(MonitoringLocationTypeName = toupper(Name)) %>%
     dplyr::select(-Name)
 
-
   # add TADA.Media.Flag column
   .data <- .data %>%
     # identify TADA.Media.Flag using ActivityMediaSubdivisionName and columns related to groundwater