Mercurial > repos > lecorguille > xcms_export_samplemetadata

comparison xcms_export_samplemetadata.r @ 1:008aceb33627 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
0:e3c06320f884 1:008aceb33627
19 sampleMetadata <- xdata@phenoData@data 19 sampleMetadata <- xdata@phenoData@data
20 else 20 else
21 sampleMetadata <- rbind(sampleMetadata,xdata@phenoData@data) 21 sampleMetadata <- rbind(sampleMetadata,xdata@phenoData@data)
22 } 22 }
23 colnames(sampleMetadata) <- c("sample_name","class") 23 colnames(sampleMetadata) <- c("sample_name","class")
24 sampleMetadata$sample_name <- make.names(sampleNamesOrigin) 24 sampleMetadata$sample_name <- make.names(sampleMetadata$sample_name)
25 25
26 # Create a sampleMetada file 26 # Create a sampleMetada file
27 write.table(sampleMetadata,file="sampleMetadata.tsv", sep="\t", row.names=FALSE, quote=FALSE) 27 write.table(sampleMetadata,file="sampleMetadata.tsv", sep="\t", row.names=FALSE, quote=FALSE)