Mercurial > repos > lecorguille > xcms_export_samplemetadata

comparison xcms_export_samplemetadata.r @ 2:942ffa3c38b8 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 ba2a5c2e962a95155c344dc1864a9c76eb565e9c
author lecorguille
date Tue, 09 Oct 2018 15:50:03 -0400
parents 008aceb33627
children 8c62030a1136
comparison
equal deleted inserted replaced
1:008aceb33627 2:942ffa3c38b8
13 13
14 14
15 sampleMetadata <- NULL 15 sampleMetadata <- NULL
16 for(image in args$images) { 16 for(image in args$images) {
17 load(image) 17 load(image)
18 if (exists("raw_data")) xdata <- raw_data
19 if (!exists("xdata")) stop("\n\nERROR: The RData doesn't contain any object called 'xdata'. This RData should have been created by an old version of XMCS 2.*")
18 if (is.null(sampleMetadata)) 20 if (is.null(sampleMetadata))
19 sampleMetadata <- xdata@phenoData@data 21 sampleMetadata <- xdata@phenoData@data
20 else 22 else
21 sampleMetadata <- rbind(sampleMetadata,xdata@phenoData@data) 23 sampleMetadata <- rbind(sampleMetadata,xdata@phenoData@data)
22 } 24 }