fix(EnrichmentPlot): ensure unique top terms in EnrichmentPlot by disabling ties in slice_min

Author: pwwang

.gitignore

@@ -6,3 +6,5 @@ Rplots.pdf
 inst/doc
 notebooks/spatial/data/
 notebooks/data/
+.vscode/mcp.json
+scplotter_presentation.pptx

R/enrichmentplot.R

@@ -123,10 +123,10 @@ EnrichmentPlot <- function(
     if (!is.null(split_by) || !is.null(group_by) || !is.null(facet_by)) {
         data <- data %>%
             group_by(!!!syms(unique(c(split_by, group_by, facet_by)))) %>%
-            slice_min(!!sym(metric), n = top_term) %>%
+            slice_min(!!sym(metric), n = top_term, with_ties = FALSE) %>%
             ungroup()
     } else {
-        data <- data %>% slice_min(!!sym(metric), n = top_term)
+        data <- data %>% slice_min(!!sym(metric), n = top_term, with_ties = FALSE)
     }
 
     # preprocessing