get tips order

  hc <- hclust(x)

  hc$order

}

#' @rdname get_order

#' @export

#' @method get_order ggtree

get_order.ggtree <- function(x, name = NULL, ...) {

  data <- x$data

  order <- with(data, {

    idx <- order(y, decreasing = TRUE)

    label[idx][isTip[idx]]

  })

  get_order(order, name = name)

}

\alias{get_order.hclust}

\alias{get_order.dendrogram}

\alias{get_order.dist}

\alias{get_order.ggtree}

\title{Extract order}

\usage{

get_order(x, ...)

\method{get_order}{dendrogram}(x, ...)

\method{get_order}{dist}(x, ...)

\method{get_order}{ggtree}(x, name = NULL, ...)

}

\arguments{

\item{x}{any \code{R} object.}