# HG changeset patch
# User lecorguille
# Date 1490877205 14400
# Node ID 8e46e9bd7c50c7dd3bbc3499c95c6c0f4b8518af
# Parent  626d3db664ef4e21291f1ae6410c26861cff738e
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 5583baab62c0f17cabbfe93ba4f2522e8df9b36b

diff -r 626d3db664ef -r 8e46e9bd7c50 lib.r
--- a/lib.r	Wed Mar 22 16:04:45 2017 -0400
+++ b/lib.r	Thu Mar 30 08:33:25 2017 -0400
@@ -476,9 +476,7 @@
 
 
 # This function get the raw file path from the arguments
-getRawfilePathFromArguments <- function(listArguments) {
-    zipfile = NULL
-    singlefile = NULL
+getRawfilePathFromArguments <- function(singlefile, zipfile, listArguments) {    
     if (!is.null(listArguments[["zipfile"]]))           zipfile = listArguments[["zipfile"]]
     if (!is.null(listArguments[["zipfilePositive"]]))   zipfile = listArguments[["zipfilePositive"]]
     if (!is.null(listArguments[["zipfileNegative"]]))   zipfile = listArguments[["zipfileNegative"]]
diff -r 626d3db664ef -r 8e46e9bd7c50 xcms.r
--- a/xcms.r	Wed Mar 22 16:04:45 2017 -0400
+++ b/xcms.r	Thu Mar 30 08:33:25 2017 -0400
@@ -101,7 +101,9 @@
 
 
 if (thefunction %in% c("xcmsSet","retcor","fillPeaks"))  {
-    rawFilePath = getRawfilePathFromArguments(listArguments)
+    if (!exists("singlefile")) singlefile=NULL
+    if (!exists("zipfile")) zipfile=NULL
+    rawFilePath = getRawfilePathFromArguments(singlefile, zipfile, listArguments)
     zipfile = rawFilePath$zipfile
     singlefile = rawFilePath$singlefile
     listArguments = rawFilePath$listArguments