Mercurial > repos > lecorguille > xcms_group
comparison lib.r @ 23:dcff3c4a8c80 draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 5583baab62c0f17cabbfe93ba4f2522e8df9b36b
| author | lecorguille |
|---|---|
| date | Thu, 30 Mar 2017 08:34:09 -0400 |
| parents | a79d839d625f |
| children | 36b470f3ebcf |
comparison
equal
deleted
inserted
replaced
| 22:b41669de74ae | 23:dcff3c4a8c80 |
|---|---|
| 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"]])) { |