From 81d45dedf8b14d8e7bf4d7b9977e716d048299e1 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:01:35 +0200
Subject: [PATCH] Fix range in mix.R
* R/mix.R(single.sw): Fix range.
---
R/mix.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/mix.R b/R/mix.R
index 6f652a1..9585ad4 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -117,7 +117,7 @@ single.sw<-function(fn_data,stgs_alist,wd,fn_cmpd_list,mode,readMethod="mzR",arc
archdir<-file.path(wd,archdir)
if (!dir.exists(archdir)) dir.create(archdir)
fn_arch<-file.path(archdir,paste(fn_data,".archive",sep=''))
- RMassBank::msmsWorkflow(w, mode=mode, steps=2:7,archivename=fn_arch)
+ RMassBank::msmsWorkflow(w, mode=mode, steps=2:lastStep,archivename=fn_arch)
}
--
GitLab