conditional loading of DelayedMatrixStats

DESCRIPTION

@@ -28,6 +28,7 @@ Suggests:
     AUCell,
     BiocParallel,
     BiocStyle,
+    DelayedMatrixStats,
     dplyr,
     fgsea,
     GSEABase,

NAMESPACE

@@ -18,6 +18,7 @@ export(splitEnrichment)
 import(ggplot2)
 importFrom(MatrixGenerics,rowMeans2)
 importFrom(MatrixGenerics,rowSds)
+importFrom(MatrixGenerics,rowSums2)
 importFrom(SummarizedExperiment,colData)
 importFrom(ggdist,stat_pointinterval)
 importFrom(grDevices,hcl.pals)

R/utils.R

@@ -150,6 +150,7 @@
 # -----------------------------------------------------------------------------
 #  EXPRESSION MATRIX EXTRACTOR -------------------------------------------------
 # -----------------------------------------------------------------------------
+#' @importFrom MatrixGenerics rowSums2
 .cntEval <- function(obj, assay = "RNA", type = "counts") {
   if (.is_seurat(obj)) {
     # Use generic accessor if available
@@ -177,10 +178,16 @@
   } else {
     cnts <- obj
   }
+  # Conditionally require DelayedMatrixStats if cnts is dgCMatrix
+  if (inherits(cnts, "dgCMatrix")) {
+    if (!requireNamespace("DelayedMatrixStats", quietly = TRUE)) {
+      stop("Package 'DelayedMatrixStats' is required to handle sparse matrices. Please install it with BiocManager::install('DelayedMatrixStats').")
+    }
+    loadNamespace("DelayedMatrixStats")
+  }
   cnts[MatrixGenerics::rowSums2(cnts) != 0, , drop = FALSE]
 }
 
-
 # -----------------------------------------------------------------------------
 #  ATTACH / PULL ENRICHMENT MATRICES ------------------------------------------
 # -----------------------------------------------------------------------------