refactor(bootstrapCompartments): use implicit return from mclapply

biobenkj · Dec 18, 2024 · 5dd450d · 5dd450d
1 parent 6b11cc6
commit 5dd450d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/bootstrapCompartments.R b/R/bootstrapCompartments.R
@@ -81,11 +81,10 @@ bootstrapCompartments <- function(obj, original.obj, bootstrap.samples = 1000,
 
     # Stupid check for perfect correlation with global mean
     if (any(is.na(cor.bins$binmat.cor))) {
-      absig <- matrix(rep(NA, nrow(cor.bins$binmat.cor)))
+      matrix(rep(NA, nrow(cor.bins$binmat.cor)))
     } else {
-      absig <- getABSignal(cor.bins, assay = assay)
+      getABSignal(cor.bins, assay = assay)
     }
-    return(absig)
   }, mc.cores = ifelse(parallel, cores, 1))
 
   # summarize the bootstraps and compute confidence intervals