From 0e129f98a0aa4aad0ca1146bf4cc377872120df7 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:06:56 +0200
Subject: [PATCH] ...
---
R/run.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/R/run.R b/R/run.R
index 875fcad..0479082 100644
--- a/R/run.R
+++ b/R/run.R
@@ -41,8 +41,9 @@ 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