fix seq_along bug

OHDSI · Jul 2, 2024 · b3b7ead · b3b7ead
1 parent 1f0da9a
commit b3b7ead
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Main.R b/Main.R
@@ -145,7 +145,7 @@ execute <- function(jobContext) {
   modelInfo <- getModelInfo(modelSaveLocation)
 
   designs <- list()
-  for (i in seq_along(modelInfo)) {
+  for (i in seq_len(nrow(modelInfo))) {
     df <- modelInfo[i, ]
 
     design <- PatientLevelPrediction::createValidationDesign(