# NOT RUN {
# create the dend:
dend <- USArrests %>%
dist() %>%
hclust("ave") %>%
as.dendrogram() %>%
color_labels()
# }
# NOT RUN {
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab