From 2ba7d794ce989eb91487ebf6ba1f77443230e611 Mon Sep 17 00:00:00 2001
From: Kim Vucinic <97175164+vucinick@users.noreply.github.com>
Date: Thu, 27 Jun 2024 11:23:42 +0200
Subject: [PATCH] Fixes plotting clustree when best k is in CLUSTER_KMEANS_K
 parameter

Bug noticed by Lucie Pfeiferova. Error when tryint to create a tibble:  Column name `k1` must not be duplicated. Tibble wouldn't have unique column names because best would be a part of the k values. Fixed by taking only unique values.
---
 R/visualization.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/visualization.R b/R/visualization.R
index 09b8750..ef687d6 100644
--- a/R/visualization.R
+++ b/R/visualization.R
@@ -577,6 +577,9 @@ dimred_plots_from_params_df <- function(sce_dimred, dimred_plots_params_df) {
 #' @concept sce_visualization
 #' @export
 plot_clustree <- function(cluster_list, params, prefix, title = deparse(substitute(cluster_list)), edge_arrow = FALSE, highlight_core = TRUE, ...) {
+  cluster_list <- unique(cluster_list)
+  params <- unique(params)
+
   assert_that_(length(cluster_list) == length(params))
 
   clustree_list <- cluster_list %>%