Mercurial > repos > lecorguille > xcms_group

diff xcms_group.r @ 19:c8f8d598f562 draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f0d42bca2f34c58c04b55e5990058d479c0ae639
author: lecorguille
date: Mon, 11 Feb 2019 06:02:39 -0500
parents: 833d2c821d9c
children: 6842c495da6d
--- a/xcms_group.r	Fri Nov 09 15:14:35 2018 -0500
+++ b/xcms_group.r	Mon Feb 11 06:02:39 2019 -0500
@@ -12,7 +12,6 @@
 #Import the different functions
 source_local <- function(fname){ argv <- commandArgs(trailingOnly=FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) }
 source_local("lib.r")
-source_local("lib-xcms3.x.x.r")
 
 pkgs <- c("xcms","batch","RColorBrewer")
 loadAndDisplayPackages(pkgs)
@@ -84,7 +83,7 @@
 
 
 cat("\t\tDRAW GRAPHICS\n")
-getPlotChromPeakDensity(xdata)
+getPlotChromPeakDensity(xdata, param = groupChromPeaksParam)
 
 if (exists("intval")) {
     getPeaklistW4M(xdata, intval, convertRTMinute, numDigitsMZ, numDigitsRT, naTOzero, "variableMetadata.tsv", "dataMatrix.tsv")