Skip to content
Snippets Groups Projects
Commit 416151a0 authored by Todor Kondic's avatar Todor Kondic
Browse files

FIX: Wrap combined obj in a list 

* R/mix.R(p.sw,v): Update.
parent ea68c577
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
R/mix.R
+ 2
− 2
View file @ 416151a0
......@@ -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 {
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment