Mercurial > repos > eschen42 > w4mclassfilter
diff w4mclassfilter_wrapper.R @ 4:499c7ecfa834 draft
planemo upload for repository https://github.com/HegemanLab/w4mclassfilter_galaxy_wrapper/tree/master commit 7049f74a86f6e47565a68336d6496d112713cbba
author | eschen42 |
---|---|
date | Mon, 19 Jun 2017 23:42:33 -0400 |
parents | 23c6d271def9 |
children | 38ccf6722d54 |
line wrap: on
line diff
--- a/w4mclassfilter_wrapper.R Thu May 11 00:05:51 2017 -0400 +++ b/w4mclassfilter_wrapper.R Mon Jun 19 23:42:33 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"])