Visually improved markers report:

If numbered clusters, order by numbers. Otherwise, keep it as is.
bioinfocz · Jul 12, 2024 · c153bd1 · c153bd1
1 parent 4cd94af
commit c153bd1
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/markers.R b/R/markers.R
@@ -849,8 +849,10 @@ generate_markers_results_section <- function(df, group_var, dt_order_by, base_ou
 
   df_list <- dplyr::group_split(df) %>%
     set_names(dplyr::group_keys(df) %>% dplyr::pull(!!sym(group_var)))
-
-  df_list <- df_list[as.character(order(names(df_list)))]
+
+  if (!any(names(df_list) %in% c("binom", "t", "wilcox"))) {
+    df_list <- df_list[as.character(order(names(df_list)))]
+  }
 
   z <- lapply(names(df_list), function(name) {
     md_header(name, 4)