From 375ab45eba3d8a82458e15a58eff9d33f09ba93c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Mon, 17 Jun 2019 20:05:46 +0200
Subject: [PATCH] Reorder instructions
* R/run.R(sw.do): Move call to makeCluster.
---
R/run.R | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/R/run.R b/R/run.R
index 0479082..875fcad 100644
--- a/R/run.R
+++ b/R/run.R
@@ -41,9 +41,8 @@ sw.do<-function(fn_data,fn_cmpd_list,mode,rdir=".",combine=F,proc=F) {
wdirs<-sapply(basename(fn_data),function(nm) file.path(rdir,stripext(nm)))
sapply(wdirs,no_drama_mkdir)
stgs<-sapply(basename(wdirs),function (nm) paste(nm,"yml",sep='.'))
-
+ cl<-parallel::makeCluster(proc)
if (proc) {
- cl<-parallel::makeCluster(proc)
p.sw(fn_data,stgs,wdirs,fn_cmpd_list,mode,combine=combine,cl=cl)
} else {
v(fn_data,stgs,wdirs,fn_cmpd_list,mode,combine=combine)
--
GitLab