Mercurial > repos > eschen42 > w4mclassfilter

comparison w4mclassfilter_wrapper.R @ 13:c18040b6e8b9 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 1a5dd14c3697516bc55950bd6e46c978af7c19cf"
author eschen42
date Thu, 24 Oct 2019 10:21:23 -0400
parents 38f509903a0b
children 87ec0d3c2266
comparison
equal deleted inserted replaced
12:38f509903a0b 13:c18040b6e8b9
101 sampleclassNames <- utils::glob2rx(sampleclassNames, trim.tail = FALSE) 101 sampleclassNames <- utils::glob2rx(sampleclassNames, trim.tail = FALSE)
102 } 102 }
103 inclusive <- as.logical(argVc["inclusive"]) 103 inclusive <- as.logical(argVc["inclusive"])
104 classnameColumn <- as.character(argVc["classnameColumn"]) 104 classnameColumn <- as.character(argVc["classnameColumn"])
105 samplenameColumn <- as.character(argVc["samplenameColumn"]) 105 samplenameColumn <- as.character(argVc["samplenameColumn"])
106
107 order_smpl <- as.character(argVc["order_smpl"])
108 order_vrbl <- as.character(argVc["order_vrbl"])
106 109
107 variable_range_filter <- as.character(argVc["variable_range_filter"]) 110 variable_range_filter <- as.character(argVc["variable_range_filter"])
108 variable_range_filter <- strsplit(x = variable_range_filter, split = ",", fixed = TRUE)[[1]] 111 variable_range_filter <- strsplit(x = variable_range_filter, split = ",", fixed = TRUE)[[1]]
109 112
110 ## ----------------------------- 113 ## -----------------------------
158 , variableMetadata_out = variableMetadata_out 161 , variableMetadata_out = variableMetadata_out
159 , classes = sampleclassNames 162 , classes = sampleclassNames
160 , include = inclusive 163 , include = inclusive
161 , class_column = classnameColumn 164 , class_column = classnameColumn
162 , samplename_column = samplenameColumn 165 , samplename_column = samplenameColumn
166 , order_vrbl = order_vrbl
167 , order_smpl = order_smpl
163 , variable_range_filter = variable_range_filter 168 , variable_range_filter = variable_range_filter
164 , failure_action = my_print 169 , failure_action = my_print
165 , data_imputation = my_transformation_and_imputation 170 , data_imputation = my_transformation_and_imputation
166 ) 171 )
167 172