skip population creation if exists

OHDSI · Jan 23, 2024 · 8fbee84 · 8fbee84
1 parent 988221c
commit 8fbee84
Showing 1 changed file with 15 additions and 14 deletions.
diff --git a/R/RunPlp.R b/R/RunPlp.R
@@ -268,21 +268,22 @@ runPlp <- function(
   })
 
   # create the population
-  population <- tryCatch(
-    {
-      do.call(
-        createStudyPopulation, 
-        list(
-          plpData = plpData,
-          outcomeId = outcomeId,
-          populationSettings = populationSettings, 
-          population = plpData$population
-        )
-      )
-    },
+  if(!is.null(plpData$population)) {
+    ParallelLogger::logInfo('Using existing population')
+  } else {
+    ParallelLogger::logInfo('Creating population')
+    population <- tryCatch({
+      do.call(createStudyPopulation,
+              list(plpData = plpData,
+                   outcomeId = outcomeId,
+                   populationSettings = populationSettings,
+                   population = plpData$population
+                   )
+      )},
     error = function(e){ParallelLogger::logError(e); return(NULL)}
-  )
-
+    )
+  }
+
   if(is.null(population)){
     stop('population NULL')
   }