R/setDendro.R

In PAMhm: Generate Heatmaps Based on Partitioning Around Medoids (PAM)

#' @noRd
setDendro <-
function (dendrograms)
{

  if (dendrograms == "Both") {
    reorder <- c(TRUE, TRUE)
  } else if (dendrograms == "Vertical") {
    reorder <- c(TRUE, FALSE)
  } else if (dendrograms == "Horizontal") {
    reorder <- c(FALSE, TRUE)
  } else if (dendrograms == "None") {
    reorder <- c(FALSE, FALSE)
  }
  return(reorder)

}