change round to ceiling

satijalab · satijalab · Sep 7, 2020 · Jul 17, 2020 · Jul 17, 2020 · Jul 17, 2020
commit 44f3702fd5a74423d97e621932c8f3b90273d48d
diff --git a/R/objects.R b/R/objects.R
@@ -8017,11 +8017,8 @@ Top <- function(data, num, balanced) {
             nr, "). Setting to ", nr , ".", call. = FALSE)
     num <- nr
   }
-  if (num == 1) {
-    balanced <- FALSE
-  }
   top <- if (balanced) {
-    num <- round(x = num / 2)
+    num <- ceiling(x = num / 2)
     data <- data[order(data, decreasing = TRUE), , drop = FALSE]
     positive <- head(x = rownames(x = data), n = num)
     negative <- rev(x = tail(x = rownames(x = data), n = num))