From 16ea19276e8ec8375c758ebd5a73134ad4dcac14 Mon Sep 17 00:00:00 2001
From: Kim Vucinic <kim.vucinic@img.cas.cz>
Date: Mon, 29 Jul 2024 22:58:21 +0200
Subject: [PATCH] Removes unnecessary as.character()

---
 R/markers.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/markers.R b/R/markers.R
index ab49250..abdf61d 100644
--- a/R/markers.R
+++ b/R/markers.R
@@ -851,7 +851,7 @@ generate_markers_results_section <- function(df, group_var, dt_order_by, base_ou
     set_names(dplyr::group_keys(df) %>% dplyr::pull(!!sym(group_var)))
     
   if (!any(names(df_list) %in% c("binom", "t", "wilcox"))) {
-    df_list <- df_list[as.character(order(names(df_list)))]
+    df_list <- df_list[order(names(df_list))]
   }
 
   z <- lapply(names(df_list), function(name) {