Removes forgotten lines

bioinfocz · Jul 29, 2024 · 1a218e8 · 1a218e8
1 parent 052a067
commit 1a218e8
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/R/visualization.R b/R/visualization.R
@@ -587,12 +587,6 @@ plot_clustree <- function(cluster_list, params, prefix, title = deparse(substitu
     set_names(glue("{prefix}{params}")) %>%
     purrr::map(as.integer)
 
-  # if (length(params) == 1) {
-  #   title <- glue("{title} ({prefix} {params})")
-  # } else {
-  #   title <- glue("{title} ({prefix} {params[1]}-{params[length(params)]})")
-  # }
-
   clustree(tibble::as_tibble(clustree_list), prefix = prefix, edge_arrow = edge_arrow, highlight_core = highlight_core) +
     ggplot2::ggtitle(title)
 }