Mercurial > repos > lecorguille > xcms_summary

comparison xcms_summary.r @ 27:bed23aa27b4b 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 50478425b4773ebcb393c0e31f1e622b7406dcbb"
author workflow4metabolomics
date Thu, 24 Sep 2020 08:09:02 +0000
parents db6549f27ad1
children 018a9771de28
comparison
equal deleted inserted replaced
26:db6549f27ad1 27:bed23aa27b4b
71 xobject <- xset 71 xobject <- xset
72 # retrocompatability 72 # retrocompatability
73 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(sampnames(xobject))) 73 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(sampnames(xobject)))
74 } 74 }
75 # if the RData come from CAMERA 75 # if the RData come from CAMERA
76 if (exists("xa")) xobject <- xa@xcmsSet 76 if (exists("xa")) {
77 xobject <- xa@xcmsSet
78 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(xa@xcmsSet@phenoData$sample_name))
79 }
77 # if the RData come from XCMS 3.x 80 # if the RData come from XCMS 3.x
78 if (exists("xdata")) { 81 if (exists("xdata")) {
79 xobject <- xdata 82 xobject <- xdata
80 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(xdata@phenoData@data$sample_name)) 83 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(xdata@phenoData@data$sample_name))
81 } 84 }