Mercurial > repos > lecorguille > xcms_fillpeaks

comparison lib.r @ 26:4db7afa8284d 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:35:34 -0400
parents 7e289788d37d
children f6d3e6be4ea3
comparison
equal deleted inserted replaced
25:9ca8133a2b9f 26:4db7afa8284d
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"]])) {