diff --git a/R/GetConceptRecordCount.R b/R/GetConceptRecordCount.R index 9d801ea..f2d9d37 100644 --- a/R/GetConceptRecordCount.R +++ b/R/GetConceptRecordCount.R @@ -63,6 +63,7 @@ getConceptRecordCount <- function(conceptIds = NULL, stratifyByYearMonth = FALSE, stratifyByAgeGroup = FALSE, stratifyByIncidence = FALSE, + getOverallCounts = FALSE, domainTableName = c( "drug_exposure", "condition_occurrence", @@ -274,6 +275,11 @@ getConceptRecordCount <- function(conceptIds = NULL, dplyr::filter(incidence != 'Y') } + if (!getOverallCounts) { + iterations <- iterations |> + dplyr::filter(includeConceptId == 'Y') + } + existingOutput <- c() for (i in (1:nrow(iterations))) {