diff purityX.R @ 9:174a523cb1da draft

planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 20a48a1862267264f98b7c514287f9a5cba1143f
author computational-metabolomics
date Thu, 13 Jun 2024 11:42:28 +0000
parents cb4aeec93d49
children da7ae20b5838
line wrap: on
line diff
--- a/purityX.R	Wed Jun 12 16:08:23 2024 +0000
+++ b/purityX.R	Thu Jun 13 11:42:28 2024 +0000
@@ -74,14 +74,18 @@
 
 getxcmsSetObject <- function(xobject) {
   # XCMS 1.x
-  if (class(xobject) == "xcmsSet") {
+  if (class(xobject) == "xcmsSet"){
     return(xobject)
   }
   # XCMS 3.x
   if (class(xobject) == "XCMSnExp") {
     # Get the legacy xcmsSet object
     suppressWarnings(xset <- as(xobject, "xcmsSet"))
-    sampclass(xset) <- xset@phenoData$sample_group
+    if (!is.null(xset@phenoData$sample_group)){
+      xcms::sampclass(xset) <- xset@phenoData$sample_group
+    }else{
+      xcms::sampclass(xset) <- "."
+    }
     return(xset)
   }
 }