Mercurial > repos > lecorguille > xcms_summary

diff xcms_summary.r @ 43:297ee37840ef 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:08:25 +0000
parents 5d59db39939a
children 9df658383852
line wrap: on
line diff
--- a/xcms_summary.r	Tue May 12 20:38:28 2020 +0000
+++ b/xcms_summary.r	Thu Sep 24 08:08:25 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