Update dplyr_methods.R

Author: noriakis

R/dplyr_methods.R

@@ -546,8 +546,10 @@ slice_sample.SingleCellExperiment <- function(.data, ..., n=NULL,
         select(!!c_(.data)$symbol) %>%
         count(!!c_(.data)$symbol)
 
+    .max_cell_count <- ifelse(nrow(count_cells)==0, 0, max(count_cells$n))
+
     # If repeated cells due to replacement
-    if (count_cells$n |> max() |> gt(1)){
+    if (.max_cell_count |> gt(1)){
         message("tidySingleCellExperiment says: When sampling with replacement",
             " a data frame is returned for independent data analysis.")
         .data |>