Mercurial > repos > eschen42 > w4mclassfilter

comparison w4mclassfilter_wrapper.R @ 4:499c7ecfa834 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 7049f74a86f6e47565a68336d6496d112713cbba
author eschen42
date Mon, 19 Jun 2017 23:42:33 -0400
parents 23c6d271def9
children 38ccf6722d54
comparison
equal deleted inserted replaced
3:191a720488ce 4:499c7ecfa834
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