From e8df49ef0620ecd855827c2ec5912419dde5f7d8 Mon Sep 17 00:00:00 2001
From: egillax <egillax@gmail.com>
Date: Wed, 31 Jul 2024 14:07:31 +0200
Subject: [PATCH] use jobcontext even if it's null (then the model is used)

---
 Main.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Main.R b/Main.R
index 1daaf4d..cb6fe10 100644
--- a/Main.R
+++ b/Main.R
@@ -151,9 +151,9 @@ execute <- function(jobContext) {
     design <- PatientLevelPrediction::createValidationDesign(
       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)
+      plpModelList = as.list(df$modelPath)
+      restrictPlpDataSettings = jobContext$settings[[1]]$restrictPlpDataSettings,
+      populationSettings = jobContext$settings[[1]]$populationSettings)
     )
     designs[[i]] <- design 
   }