Go through the dendrogram leaves and remove its nodePar.

remove_leaves_nodePar(dend, ...)

Arguments

dend

a dendrogram object

...

not used

Value

A dendrogram, after removing the nodePar attribute in all of its leaves,

Examples


if (FALSE) {

dend <- USArrests[1:5, ] %>%
  dist() %>%
  hclust() %>%
  as.dendrogram()

dend <- color_labels(dend, 3)
par(mfrow = c(1, 2))
plot(dend)
plot(remove_leaves_nodePar(dend))


get_leaves_attr(dend, "nodePar")
get_leaves_attr(remove_leaves_nodePar(dend), "nodePar")
}