From 0f29129fb8302d6e6daa51e4bec8bdd05e560958 Mon Sep 17 00:00:00 2001 From: Dominique Makowski Date: Sun, 1 Dec 2024 11:12:51 +0000 Subject: [PATCH] Update cor_sort.R --- R/cor_sort.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/cor_sort.R b/R/cor_sort.R index a1df8afa..703213fa 100644 --- a/R/cor_sort.R +++ b/R/cor_sort.R @@ -155,5 +155,5 @@ cor_sort.matrix <- function(x, distance = "correlation", hclust_method = "comple # Append any unused rows at the end refined_row_order <- c(refined_row_order, which(!used_rows)) - list(row_order = refined_row_order, col_order = row_order) + list(row_order = rownames(m)[refined_row_order], col_order = colnames(m)[col_order]) }