From ea68c577ec7e4b88e79def4cc7e535e262781828 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Wed, 19 Jun 2019 15:18:13 +0200
Subject: [PATCH] FIX: mb prep for combined
* mix.R(p.sw,v): Update. Attach a suitable name (that has an extension
that can be stripped) to the combined object.
---
R/mix.R | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/R/mix.R b/R/mix.R
index f133e9a..f7a4642 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -212,7 +212,9 @@ v<-function(fn_data,stgs_alist,wd,fn_cmpd_list,mode,readMethod="mzR",archdir="ar
no_drama_mkdir(combdir)
no_drama_mkdir(archdir)
fn_arch<-file.path(archdir,"archive")
- RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch)
+ res<-RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch)
+ names(res)<-paste(combdir,".yml",sep='') #Clearly a hack.
+ res
} else {
z<-f(fn_data,stgs_alist,wd,fn_cmpd_list,mode,readMethod=readMethod,archdir=archdir,lastStep=lastStep)
names(z)<-basename(fn_data)
@@ -258,7 +260,9 @@ p.sw<-function(fn_data,stgs_alist,wd,fn_cmpd_list,mode,readMethod="mzR",archdir=
no_drama_mkdir(combdir)
no_drama_mkdir(archdir)
fn_arch<-file.path(archdir,"archive")
- RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch)
+ res<-RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch)
+ names(res)<-paste(combdir,".yml",sep='') #Clearly a hack.
+ res
} else {
z<-parallel::clusterMap(cl,fnocomb,fn_data,stgs_alist,wd)
names(z)<-basename(fn_data)
--
GitLab