# create the dend:
dend <- USArrests %>%
dist() %>%
hclust("ave") %>%
as.dendrogram() %>%
color_labels()
if (FALSE) {
# play with the rotation once
dend <- click_rotate(dend)
dend <- click_rotate(dend, horiz = TRUE)
# keep playing with the rotation:
while (TRUE) dend <- click_rotate(dend)
# the same as
dend <- click_rotate(dend, continue = TRUE)
}
Run the code above in your browser using DataLab