Add case if no peaks detected in a sample

sipss · Jan 11, 2024 · 0bfca75 · 0bfca75
1 parent 3ba8507
commit 0bfca75
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/peaks-GCIMSSample.R b/R/peaks-GCIMSSample.R
@@ -9,7 +9,12 @@ setMethod(
     if (is.null(object@peaks)) {
       stop("Please run findPeaks() on the sample first")
     }
-    tibble::as_tibble(cbind(SampleID = object@description, object@peaks))
+    if(nrow(object@peaks)==0){
+      p <- NULL
+    }else{
+      p <- tibble::as_tibble(cbind(SampleID = object@description, object@peaks))
+    }
+    return(p)
   }
 )