From 4a469d04d936445b6a9c526a228695a209afcc5f Mon Sep 17 00:00:00 2001 From: hillarymarler Date: Wed, 17 Jul 2024 12:45:14 -0400 Subject: [PATCH] Update ResultFlagsIndependent.R Moved location of flag.data to address check issue --- R/ResultFlagsIndependent.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/ResultFlagsIndependent.R b/R/ResultFlagsIndependent.R index cbf500d8..909b3021 100644 --- a/R/ResultFlagsIndependent.R +++ b/R/ResultFlagsIndependent.R @@ -309,9 +309,10 @@ TADA_FlagContinuousData <- function(.data, clean = FALSE, flaggedonly = FALSE, t dplyr::mutate(TADA.ContinuousData.Flag = ifelse(ResultIdentifier %in% within_window$ResultIdentifier, "Continuous", TADA.ContinuousData.Flag)) - flag.data <- plyr::rbind.fill(cont.data, noncont.data) } + flag.data <- plyr::rbind.fill(cont.data, noncont.data) + # flagged output, all data if (clean == FALSE & flaggedonly == FALSE) { flag.data <- TADA_OrderCols(flag.data) @@ -347,7 +348,7 @@ if (nrow(flag.data[flag.data$TADA.ContinuousData.Flag == "Continuous",]) == 0) { if (flaggedonly == FALSE) { print("No evidence of aggregated continuous data in your dataframe. Returning the input dataframe with TADA.ContinuousData.Flag column for tracking.") .data <- TADA_OrderCols(.data) - + return(.data) }