changeset 1:008aceb33627 draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 67da3bb19bde72d5e78397e5627c176896234f86-dirty
author lecorguille
date Tue, 09 Oct 2018 12:57:14 -0400
parents e3c06320f884
children 942ffa3c38b8
files xcms_export_samplemetadata.r
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)