From 416151a0590d2bc2e9a49b18d0e4dd04bd0d8f78 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:27:34 +0200
Subject: [PATCH] FIX: Wrap combined obj in a list
* R/mix.R(p.sw,v): Update.
---
R/mix.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/mix.R b/R/mix.R
index f7a4642..ac505dd 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -212,7 +212,7 @@ 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")
- res<-RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch)
+ res<-list(RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch))
names(res)<-paste(combdir,".yml",sep='') #Clearly a hack.
res
} else {
@@ -260,7 +260,7 @@ 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")
- res<-RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch)
+ res<-list(RMassBank::msmsWorkflow(zz, steps=8, mode=mode, archivename = fn_arch))
names(res)<-paste(combdir,".yml",sep='') #Clearly a hack.
res
} else {
--
GitLab