From e64a8b187da5ebb6e16500ab8f4fe7e791a0f9dd 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:13:12 +0200
Subject: [PATCH] Fix mix.R

* R/mix.R(gen_file_table
---
 R/mix.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/mix.R b/R/mix.R
index efd9182..a8f5a2a 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -135,7 +135,7 @@ gen_cmpdl_and_load <- function(fn_data,wd,fn_cmpdl) {
 ##' @param fn_data The mzML filename.
 ##' @param n_cmpd Number of compounds.
 ##' @param wd Directory under which results are archived.
-##' @return NULL
+##' @return File path of the file table.
 ##' @author Todor Kondić
 gen_file_table <- function(fn_data,n_cmpd,wd) {
     wd <- normalizePath(wd)
@@ -143,7 +143,7 @@ gen_file_table <- function(fn_data,n_cmpd,wd) {
     df_table<-data.frame(Files=rep(fn_data,n_cmpd),ID=1:n_cmpd)
     fn_table<-file.path(wd,paste("fn-table.",basename(fn_data),".csv",sep=''))
     write.csv(x=df_table,file=fn_table,row.names=F)
-    NULL
+    fn_table
 }
 
 
@@ -327,7 +327,7 @@ presc.single <- function(fn_data,stgs_alist,wd,mode,fn_cmpd_l,ppm_lim_fine=10,EI
     n_cmpd <- x$n
 
     ## Generate file table.
-    gen_file_table(fn_data,n_cmpd,wd)
+    fn_table <- gen_file_table(fn_data,n_cmpd,wd)
     
     curd <- setwd(wd)
     res <- ReSOLUTION::RMB_EIC_prescreen(archive_name=nm_arch,RMB_mode=mode,
-- 
GitLab