use restrictPlpSettings and populationSettings if specified else get …

…from model
OHDSI · Jul 31, 2024 · 5b24a28 · 5b24a28
1 parent b3b7ead
commit 5b24a28
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Main.R b/Main.R
@@ -152,6 +152,8 @@ execute <- function(jobContext) {
       targetId = df$target_id[1],
       outcomeId = df$outcome_id[1],
       plpModelList = as.list(df$modelPath)
+      restrictPlpDataSettings = ifelse(!is.null(jobContext$settings[[1]]$restrictPlpDataSettings), jobContext$settings[[1]]$restrictPlpDataSettings, NULL),
+      populationSettings = ifelse(!is.null(jobContext$settings[[1]]$populationSettings), jobContext$settings[[1]]$populationSettings, NULL)
     )
     designs[[i]] <- design 
   }