changeset 1:ebb646463471 draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 67da3bb19bde72d5e78397e5627c176896234f86-dirty
author lecorguille
date Tue, 09 Oct 2018 12:58:43 -0400
parents 9e8e5e1683a8
children fad2e08591ac
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:19 2018 -0400
+++ b/xcms_export_samplemetadata.r	Tue Oct 09 12:58:43 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)