Fix minor check issues

DESCRIPTION

@@ -12,7 +12,7 @@ Authors@R: c(
         person("Leo", "Lahti", role=c("ctb"), email="[email protected]",
 	             comment = c(ORCID = "0000-0001-5537-637X"))
 	)
-Version: 1.29.2
+Version: 1.29.3
 Date: 2023-07-06
 License: GPL-3
 Title: Single-Cell Analysis Toolkit for Gene Expression Data in R

R/plotHeatmap.R

@@ -256,10 +256,10 @@ plotHeatmap <- function(object, features, columns = NULL,
         x <- x - rowMeans(x)
     }
     if (scale) {
-        if (!center & any(rowSums(x, useNames = TRUE) == 0)) {
+        if (!center & any(rowSums(x) == 0)) {
             stop("Cannot include non-expressed genes when scale=TRUE.")
         }
-        x <- x / sqrt(rowSums(x^2, useNames = TRUE) / (ncol(x) - 1))
+        x <- x / sqrt(rowSums(x^2) / (ncol(x) - 1))
     }
     if (is.null(zlim)) {
         if (center) {

tests/testthat/test-nexprs.R

@@ -25,9 +25,9 @@ test_that("nexprs responds to other options", {
 
     # Handles parallelization.
     expect_equal(nexprs(original), nexprs(original, BPPARAM=safeBPParam(2)))
-    expect_equal(nexprs(original), nexprs(original, BPPARAM=SnowParam(3)))
+    expect_equal(nexprs(original), nexprs(original, BPPARAM=SnowParam(2)))
     expect_equal(nexprs(original, byrow=TRUE), nexprs(original, byrow=TRUE, BPPARAM=safeBPParam(2)))
-    expect_equal(nexprs(original, byrow=TRUE), nexprs(original, byrow=TRUE, BPPARAM=SnowParam(3)))
+    expect_equal(nexprs(original, byrow=TRUE), nexprs(original, byrow=TRUE, BPPARAM=SnowParam(2)))
 })
 
 test_that("nexprs works on a sparse matrix", {