Mercurial > repos > lecorguille > xcms_summary

diff 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
line wrap: on
line diff
--- a/xcms_summary.r	Tue May 12 16:39:28 2020 -0400
+++ b/xcms_summary.r	Thu Sep 24 08:09:02 2020 +0000
@@ -73,7 +73,10 @@
     if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(sampnames(xobject)))
 }
 # if the RData come from CAMERA
-if (exists("xa")) xobject <- xa@xcmsSet
+if (exists("xa")) {
+    xobject <- xa@xcmsSet
+    if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames"=make.names(xa@xcmsSet@phenoData$sample_name))
+}
 # if the RData come from XCMS 3.x
 if (exists("xdata")) {
     xobject <- xdata