# HG changeset patch
# User lecorguille
# Date 1538663673 14400
# Node ID 11faa3dd548ecde9e655785072ab8cedae665f60
# Parent  c0a66f15261b3de4d58c86985dacb0ede2dcda0f
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e3956bf3393be5bff67b4d90f1007da00b0ec9b2-dirty

diff -r c0a66f15261b -r 11faa3dd548e lib.r
--- a/lib.r	Wed Sep 19 09:27:03 2018 -0400
+++ b/lib.r	Thu Oct 04 10:34:33 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"