# HG changeset patch
# User lecorguille
# Date 1538663737 14400
# Node ID 2130b2a6d12c8b0e5eae0bd6e4f7573c2755f696
# Parent  28c842dce1db8a74012f5a443012bdac4bbb6bec
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e3956bf3393be5bff67b4d90f1007da00b0ec9b2-dirty

diff -r 28c842dce1db -r 2130b2a6d12c lib.r
--- a/lib.r	Wed Sep 19 02:52:32 2018 -0400
+++ b/lib.r	Thu Oct 04 10:35:37 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"