Mercurial > repos > lecorguille > xcms_retcor

comparison lib.r @ 25:b8be2b25957d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 5583baab62c0f17cabbfe93ba4f2522e8df9b36b
author lecorguille
date Thu, 30 Mar 2017 08:34:51 -0400
parents 411d2b9ea412
children 30410a052ab3
comparison
equal deleted inserted replaced
24:d45e409406ed 25:b8be2b25957d
474 return(as.matrix(md5sum(files))) 474 return(as.matrix(md5sum(files)))
475 } 475 }
476 476
477 477
478 # This function get the raw file path from the arguments 478 # This function get the raw file path from the arguments
479 getRawfilePathFromArguments <- function(listArguments) { 479 getRawfilePathFromArguments <- function(singlefile, zipfile, listArguments) {
480 zipfile = NULL
481 singlefile = NULL
482 if (!is.null(listArguments[["zipfile"]])) zipfile = listArguments[["zipfile"]] 480 if (!is.null(listArguments[["zipfile"]])) zipfile = listArguments[["zipfile"]]
483 if (!is.null(listArguments[["zipfilePositive"]])) zipfile = listArguments[["zipfilePositive"]] 481 if (!is.null(listArguments[["zipfilePositive"]])) zipfile = listArguments[["zipfilePositive"]]
484 if (!is.null(listArguments[["zipfileNegative"]])) zipfile = listArguments[["zipfileNegative"]] 482 if (!is.null(listArguments[["zipfileNegative"]])) zipfile = listArguments[["zipfileNegative"]]
485 483
486 if (!is.null(listArguments[["singlefile_galaxyPath"]])) { 484 if (!is.null(listArguments[["singlefile_galaxyPath"]])) {