From 4fff325565c4b8650b180bd543fded2dcdfea3ac Mon Sep 17 00:00:00 2001
From: hillarymarler <Marler.Hillary@epa.gov>
Date: Mon, 25 Nov 2024 15:49:20 -0500
Subject: [PATCH] Update ResultFlagsIndependent.R

Added filter to exclude quality control samples from looking for cont. data
---
 R/ResultFlagsIndependent.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/ResultFlagsIndependent.R b/R/ResultFlagsIndependent.R
index 04c9f2c4..57daf794 100644
--- a/R/ResultFlagsIndependent.R
+++ b/R/ResultFlagsIndependent.R
@@ -265,6 +265,8 @@ TADA_FlagContinuousData <- function(.data, clean = FALSE, flaggedonly = FALSE, t
 
   if (length(noncont.data) >= 1) {
     info_match <- noncont.data %>%
+      # remove quality control samples
+      dplyr::filter(!grepl("Quality Control", ActivityTypeCode)) %>%
       dplyr::group_by(
         TADA.LatitudeMeasure, TADA.LongitudeMeasure,
         OrganizationIdentifier, TADA.ComparableDataIdentifier,