Reverted change to seq_len

OHDSI · Sep 1, 2023 · a7779c3 · a7779c3
1 parent 6772089
commit a7779c3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/RunAnalyses.R b/R/RunAnalyses.R
@@ -530,7 +530,7 @@ runCmAnalyses <- function(connectionDetails,
       )
       return(task)
     }
-    tasks <- lapply(seq_len(nrow(subset)), createSharedBalanceTask)
+    tasks <- lapply(1:nrow(subset), createSharedBalanceTask)
     cluster <- ParallelLogger::makeCluster(min(length(tasks), multiThreadingSettings$computeSharedBalanceThreads))
     ParallelLogger::clusterRequire(cluster, "CohortMethod")
     dummy <- ParallelLogger::clusterApply(cluster, tasks, doComputeSharedBalance)