From a7779c38e6b955bba16f71d91ac9a1d0eac70c2f Mon Sep 17 00:00:00 2001 From: Maarten van Kessel Date: Fri, 1 Sep 2023 10:32:08 +0200 Subject: [PATCH] Reverted change to seq_len --- R/RunAnalyses.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/RunAnalyses.R b/R/RunAnalyses.R index bf42e6d8..cf6f1f96 100644 --- 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)