diff mixomics_plotindiv_script.R @ 3:0a3c83f2197a draft

planemo upload for repository https://github.com/bilille/galaxy-mixomics-blocksplsda commit 24b8259494ac7ab10cbd1f9ee991f455a7507590-dirty

--- a/mixomics_plotindiv_script.R	Wed Jun 12 11:24:23 2019 -0400
+++ b/mixomics_plotindiv_script.R	Fri Oct 25 07:10:59 2019 -0400
@@ -6,8 +6,7 @@
 # we need that to not crash galaxy with an UTF8 error on German LC settings.
 loc <- Sys.setlocale("LC_MESSAGES", "en_US.UTF-8")
 
-## Main Function ##
-
+## Get parameters ##
 suppressPackageStartupMessages(require(argparse))
 
 parser <- ArgumentParser(description='Run the mixOmics plotIndiv function')
@@ -19,7 +18,7 @@
 
 args <- parser$parse_args()
 
-##
+## Print parameters
 print("Input RData:")
 print(args$input_rdata)
 print("Plot legend:")
@@ -36,9 +35,9 @@
 
 pdf(args$output_pdf)
 
-plotIndiv(mixomics_result,
-          legend = args$legend,
-          ellipse = args$ellipse)
+# plotIndiv(mixomics_result,
+#           legend = args$legend,
+#           ellipse = args$ellipse)
 
 for(k in 1:(length(mixomics_result$names[[3]])-1))
 {