filter cohort if existing population

OHDSI · Dec 20, 2023 · 8f8ccb8 · 8f8ccb8
1 parent 6357763
commit 8f8ccb8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/PopulationSettings.R b/R/PopulationSettings.R
@@ -215,6 +215,9 @@ createStudyPopulation <- function(
 
   if (is.null(population)) {
     population <- plpData$cohorts
+  } else {
+    population <- plpData$cohorts %>% 
+      dplyr::filter(.data$rowId %in% (population %>% dplyr::pull(.data$rowId)))
   }
 
   # save the metadata (should have the ?targetId, outcomeId, plpDataSettings and population settings)