Removes unnecessary as.character()

bioinfocz · Jul 29, 2024 · 16ea192 · 16ea192
1 parent 1a218e8
commit 16ea192
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {