fix wrong detection

easystats · Dec 2, 2024 · fd3148d · fd3148d
1 parent ce7b972
commit fd3148d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cor_sort.R b/R/cor_sort.R
@@ -78,7 +78,7 @@ cor_sort.easycormatrix <- function(x, distance = "correlation", hclust_method =
 
 #' @export
 cor_sort.matrix <- function(x, distance = "correlation", hclust_method = "complete", ...) {
-  if(isSquare(x)) {
+  if(isSquare(x) & all(colnames(x) %in% rownames(x))) {
     i <- .cor_sort_square(x, distance = distance, hclust_method = hclust_method, ...)
   } else {
     i <- .cor_sort_nonsquare(x, distance = "euclidean", ...)