Mercurial > repos > lecorguille > xcms_export_samplemetadata
comparison xcms_export_samplemetadata.r @ 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 |
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) |