comparison lib.r @ 13:97e2c754e81f draft

planemo upload commit 00bda51a5454373957a0b75024d9fc4282743c4d
author lecorguille
date Thu, 30 Mar 2017 09:02:43 -0400
parents ddce949e4b35
children 018f73a9e98e
comparison
equal deleted inserted replaced
12:ddce949e4b35 13:97e2c754e81f
223 return(variableMetadata); 223 return(variableMetadata);
224 224
225 } 225 }
226 226
227 # This function get the raw file path from the arguments 227 # This function get the raw file path from the arguments
228 getRawfilePathFromArguments <- function(listArguments) { 228 getRawfilePathFromArguments <- function(singlefile, zipfile, listArguments) {
229 zipfile = NULL
230 singlefile = NULL
231 if (!is.null(listArguments[["zipfile"]])) zipfile = listArguments[["zipfile"]] 229 if (!is.null(listArguments[["zipfile"]])) zipfile = listArguments[["zipfile"]]
232 if (!is.null(listArguments[["zipfilePositive"]])) zipfile = listArguments[["zipfilePositive"]] 230 if (!is.null(listArguments[["zipfilePositive"]])) zipfile = listArguments[["zipfilePositive"]]
233 if (!is.null(listArguments[["zipfileNegative"]])) zipfile = listArguments[["zipfileNegative"]] 231 if (!is.null(listArguments[["zipfileNegative"]])) zipfile = listArguments[["zipfileNegative"]]
234 232
235 if (!is.null(listArguments[["singlefile_galaxyPath"]])) { 233 if (!is.null(listArguments[["singlefile_galaxyPath"]])) {