Mercurial > repos > eschen42 > w4mclassfilter

comparison w4mclassfilter_wrapper.R @ 5:ae791fe4fbe9 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/HegemanLab/w4mclassfilter_galaxy_wrapper/tree/master commit a2d17eac4a1343a34cf2908d9ab31b3202a21f64
author eschen42
date Thu, 07 Sep 2017 17:32:09 -0400
parents 0c312f3a4a17
children f1eabb5973b1
comparison
equal deleted inserted replaced
4:2495d0019dbe 5:ae791fe4fbe9
81 variableMetadata_out <- as.character(argVc["variableMetadata_out"]) 81 variableMetadata_out <- as.character(argVc["variableMetadata_out"])
82 82
83 # other parameters 83 # other parameters
84 84
85 sampleclassNames <- as.character(argVc["sampleclassNames"]) 85 sampleclassNames <- as.character(argVc["sampleclassNames"])
86 # if (sampleclassNames == "NONE_SPECIFIED") { 86 wildcards <- as.logical(argVc["wildcards"])
87 # sampleclassNames <- as.character(c())
88 #
89 # } else {
90 # sampleclassNames <- strsplit(x = sampleclassNames, split = ",", fixed = TRUE)[[1]]
91 # }
92 sampleclassNames <- strsplit(x = sampleclassNames, split = ",", fixed = TRUE)[[1]] 87 sampleclassNames <- strsplit(x = sampleclassNames, split = ",", fixed = TRUE)[[1]]
88 if (wildcards) {
89 sampleclassNames <- gsub("[.]", "[.]", sampleclassNames)
90 sampleclassNames <- utils::glob2rx(sampleclassNames, trim.tail = FALSE)
91 }
93 inclusive <- as.logical(argVc["inclusive"]) 92 inclusive <- as.logical(argVc["inclusive"])
94 # print(sprintf("inclusive = '%s'", as.character(inclusive)))
95 classnameColumn <- as.character(argVc["classnameColumn"]) 93 classnameColumn <- as.character(argVc["classnameColumn"])
96 samplenameColumn <- as.character(argVc["samplenameColumn"]) 94 samplenameColumn <- as.character(argVc["samplenameColumn"])
97 95
98 ##------------------------------ 96 ##------------------------------
99 ## Computation 97 ## Computation