# HG changeset patch
# User lecorguille
# Date 1538661051 14400
# Node ID beebef001d7dccf0f373c896d25f97073f5ea417
# Parent  9c2978d67f4e299d5cd81dd7161aef118d450d91
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e3956bf3393be5bff67b4d90f1007da00b0ec9b2-dirty

diff -r 9c2978d67f4e -r beebef001d7d lib.r
--- a/lib.r	Tue Oct 02 09:07:28 2018 -0400
+++ b/lib.r	Thu Oct 04 09:50:51 2018 -0400
@@ -186,9 +186,9 @@
 
 #@author G. Le Corguille
 # value: intensity values to be used into, maxo or intb
-getPeaklistW4M <- function(xdata, intval="into", convertRTMinute=F, numDigitsMZ=4, numDigitsRT=0, naTOzero=T, variableMetadataOutput, dataMatrixOutput) {
+getPeaklistW4M <- function(xdata, intval="into", convertRTMinute=F, numDigitsMZ=4, numDigitsRT=0, naTOzero=T, variableMetadataOutput, dataMatrixOutput, sampleNamesList) {
     dataMatrix <- featureValues(xdata, method="medret", value=intval)
-    colnames(dataMatrix) <- tools::file_path_sans_ext(colnames(dataMatrix))
+    colnames(dataMatrix) <- make.names(tools::file_path_sans_ext(colnames(dataMatrix)))
     dataMatrix = cbind(name=groupnamesW4M(xdata), dataMatrix)
     variableMetadata <- featureDefinitions(xdata)
     colnames(variableMetadata)[1] = "mz"; colnames(variableMetadata)[4] = "rt"