Mercurial > repos > ppericard > mixomics_blocksplsda
diff mixomics_plotindiv_script.R @ 3:0a3c83f2197a draft
planemo upload for repository https://github.com/bilille/galaxy-mixomics-blocksplsda commit 24b8259494ac7ab10cbd1f9ee991f455a7507590-dirty
author | ppericard |
---|---|
date | Fri, 25 Oct 2019 07:10:59 -0400 |
parents | bea08702ed51 |
children |
line wrap: on
line diff
--- 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)) {