Mercurial > repos > eschen42 > w4mclassfilter
diff w4mclassfilter_wrapper.R @ 5:ae791fe4fbe9 draft
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 |
line wrap: on
line diff
--- a/w4mclassfilter_wrapper.R Thu May 11 00:01:40 2017 -0400 +++ b/w4mclassfilter_wrapper.R Thu Sep 07 17:32:09 2017 -0400 @@ -83,15 +83,13 @@ # other parameters sampleclassNames <- as.character(argVc["sampleclassNames"]) -# if (sampleclassNames == "NONE_SPECIFIED") { -# sampleclassNames <- as.character(c()) -# -# } else { -# sampleclassNames <- strsplit(x = sampleclassNames, split = ",", fixed = TRUE)[[1]] -# } +wildcards <- as.logical(argVc["wildcards"]) sampleclassNames <- strsplit(x = sampleclassNames, split = ",", fixed = TRUE)[[1]] +if (wildcards) { + sampleclassNames <- gsub("[.]", "[.]", sampleclassNames) + sampleclassNames <- utils::glob2rx(sampleclassNames, trim.tail = FALSE) +} inclusive <- as.logical(argVc["inclusive"]) -# print(sprintf("inclusive = '%s'", as.character(inclusive))) classnameColumn <- as.character(argVc["classnameColumn"]) samplenameColumn <- as.character(argVc["samplenameColumn"])