fix case when createValidationDesign returns multiple designs

mi-erasmusmc · Oct 8, 2024 · f7adfb7 · f7adfb7
1 parent dc11a46
commit f7adfb7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/Module-PatientLevelPredictionValidation.R b/R/Module-PatientLevelPredictionValidation.R
@@ -77,7 +77,11 @@ PatientLevelPredictionValidationModule <- R6::R6Class(
           restrictPlpDataSettings = setting$restrictPlpDataSettings,
           populationSettings = setting$populationSettings
         )
-        designs[[length(designs) + 1]] <- design
+        # if design is single validationDesign instead of a list
+        if (inherits(design, "validationDesign")) {
+          design <- list(design)
+        }
+        designs <- c(designs, design)
       }
 
       databaseDetails <- PatientLevelPrediction::createDatabaseDetails(