From 48643f414a8faf1c0cc2c61495de0ecad0afe1cf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Thu, 30 May 2019 15:58:37 +0200
Subject: [PATCH] Try this fix.

---
 R/mix.R | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/R/mix.R b/R/mix.R
index 204289d..aa6a4d0 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -1,3 +1,7 @@
+stripext<-function(fn) {
+    bits<-strsplit(fn,split="\\.")[[1]]
+    if (length(bits)> 1) paste(head(bits,-1),collapse=".") else fn}
+
 ##' Create directories without drama.
 ##'
 ##' 
@@ -162,16 +166,18 @@ mb.prep.v<-function(w,fn_info,fn_stgs) {
 ##' @author Todor Kondić
 mb.single<-function(mb,infodir,fn_stgs) {
     RMassBank::loadRmbSettings(fn_stgs)
+    
     mb <- RMassBank::resetInfolists(mb)
     mb <- RMassBank::loadInfolists(mb,infodir)
     ## loadInfolists
     ## addPeaks
-    RMassBank::mbWorkflow(mb,step=1:8)
+    prevd<-setwd(infodir)
+    res<-RMassBank::mbWorkflow(mb,step=1:8)
+    setwd(prevd)
+    res
 }
 
-stripext<-function(fn) {
-    bits<-strsplit(fn,split="\\.")[[1]]
-    if (length(bits)> 1) paste(head(bits,-1),collapse=".") else fn}
+
 
 
 
-- 
GitLab