From 41421b9924360e0a9f5cc838946aab9b1f0a21bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Fri, 21 Jun 2019 21:05:59 +0200
Subject: [PATCH] Fix mix.R

* R/mix.R(gen_stgs_and_load):
  Fix argument.
---
 R/mix.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/mix.R b/R/mix.R
index b6d5593..b67359e 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -97,16 +97,16 @@ gen_comp_list<-function(src_fn,dest_fn) {
 ##' 
 ##' @title Generate and Load the RMassBank Settings File
 ##' @param fn_data The mzML filename.
-##' @param stgs_alist Settings named list, or a settings filename.
+##' @param stgs Settings named list, or a settings filename.
 ##' @param wd Directory under which results are archived.
 ##' @return result of RMassBank::loadRmbSettings
 ##' @author Todor Kondić
 gen_stgs_and_load <- function(fn_data,stgs,wd) {
     wd <- normalizePath(wd)
     fn_data <- normalizePath(fn_data)
-    stgs_alist<-if (is.character(stgs_alist)) yaml::yaml.load_file(stgs_alist) else stgs_alist
+    stgs<-if (is.character(stgs)) yaml::yaml.load_file(stgs) else stgs
     sfn<-file.path(wd,paste(basename(fn_data),".ini",sep=''))
-    mk_sett_file(stgs_alist,sfn)
+    mk_sett_file(stgs,sfn)
     RMassBank::loadRmbSettings(sfn)
 }
 
-- 
GitLab