[fix] Adapt colSums to the matrix type

Core-Bioinformatics · Oct 21, 2024 · ac408e2 · ac408e2
1 parent 431fdd8
commit ac408e2
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/shiny-app.R b/R/shiny-app.R
@@ -523,7 +523,12 @@ write_shiny_app.default <- function(object,
                                     height_ratio = 0.6,
                                     qualpalr_colorspace = "pretty") {
     # nFeature <- DelayedMatrixStats::colSums2(object > 0)
-    nFeature <- colSums(object > 0)
+    if (inherits(object, "dgCMatrix")) {
+        nFeature <- Matrix::colSums(object > 0)
+    } else {
+        nFeature <- matrixStats::colSums2(object > 0)
+    }
+
     warning_message <- ""
     shiny_app_title <- paste("ClustAssess ShinyApp -", shiny_app_title)