Need to specify Matrix::colSums

benjamin-james · benjamin-james · commit 8bfdef09e2a6 · 2025-01-29T19:39:43.000-05:00
diff --git a/R/sc.R b/R/sc.R
@@ -16,7 +16,7 @@ se_make_pseudobulk <- function(se, on, missing.levels=FALSE, unlevel=TRUE, ncell
         mat %*% to_P
     })
     if ("counts" %in% names(A)) {
-        Percent <- as.matrix((A$counts > 0) %*% to_P) %*% diag(100/colSums(to_P))
+        Percent <- as.matrix((A$counts > 0) %*% to_P) %*% diag(100/Matrix::colSums(to_P))
         dimnames(Percent) <- dimnames(P$counts)
         P$Percent <- Percent
     }

Original file line number	Diff line number	Diff line change
`@@ -16,7 +16,7 @@ se_make_pseudobulk <- function(se, on, missing.levels=FALSE, unlevel=TRUE, ncell`
`16`	`16`	`mat %*% to_P`
`17`	`17`	`})`
`18`	`18`	`if ("counts" %in% names(A)) {`
`19`		`- Percent <- as.matrix((A$counts > 0) %% to_P) %% diag(100/colSums(to_P))`
	`19`	`+ Percent <- as.matrix((A$counts > 0) %% to_P) %% diag(100/Matrix::colSums(to_P))`
`20`	`20`	`dimnames(Percent) <- dimnames(P$counts)`
`21`	`21`	`P$Percent <- Percent`
`22`	`22`	`}`