diff w4mclassfilter_wrapper.R @ 13:c18040b6e8b9 draft

"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
line wrap: on
line diff
--- a/w4mclassfilter_wrapper.R	Tue Oct 01 16:57:58 2019 -0400
+++ b/w4mclassfilter_wrapper.R	Thu Oct 24 10:21:23 2019 -0400
@@ -104,6 +104,9 @@
 classnameColumn <- as.character(argVc["classnameColumn"])
 samplenameColumn <- as.character(argVc["samplenameColumn"])
 
+order_smpl <- as.character(argVc["order_smpl"])
+order_vrbl <- as.character(argVc["order_vrbl"])
+
 variable_range_filter <- as.character(argVc["variable_range_filter"])
 variable_range_filter <- strsplit(x = variable_range_filter, split = ",", fixed = TRUE)[[1]]
 
@@ -160,6 +163,8 @@
 , include               = inclusive
 , class_column          = classnameColumn
 , samplename_column     = samplenameColumn
+, order_vrbl            = order_vrbl
+, order_smpl            = order_smpl
 , variable_range_filter = variable_range_filter
 , failure_action        = my_print
 , data_imputation       = my_transformation_and_imputation