# HG changeset patch
# User lecorguille
# Date 1539104234 14400
# Node ID 008aceb33627e9cdc77fc49bb73a678db751c023
# Parent  e3c06320f88465c6d600d5fc038fa5134db90ab1
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 67da3bb19bde72d5e78397e5627c176896234f86-dirty

diff -r e3c06320f884 -r 008aceb33627 xcms_export_samplemetadata.r
--- a/xcms_export_samplemetadata.r	Tue Oct 09 12:50:47 2018 -0400
+++ b/xcms_export_samplemetadata.r	Tue Oct 09 12:57:14 2018 -0400
@@ -21,7 +21,7 @@
         sampleMetadata <- rbind(sampleMetadata,xdata@phenoData@data)
 }
 colnames(sampleMetadata) <- c("sample_name","class")
-sampleMetadata$sample_name <- make.names(sampleNamesOrigin)
+sampleMetadata$sample_name <- make.names(sampleMetadata$sample_name)
 
 # Create a sampleMetada file
 write.table(sampleMetadata,file="sampleMetadata.tsv", sep="\t", row.names=FALSE, quote=FALSE)