R/plot_dendrogram.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Plots dendrogram
#'
#' @param data cor.object or hclust object
#'
#' @return
#' @export
#'
#' @importFrom ggdendro ggdendrogram
#' @import ggplot2
#'
#'
plot_dendrogram <- function(data) {

  if(!hasArg(data)) {
    data <- getData()
  }

  if(class(data) == "list") {
    data <- data[["dendrogram"]]
  }

  print(ggdendro::ggdendrogram(data = as.dendrogram(data), rotate = TRUE, labels = F))

}