# 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)
# ## End(Not run)
Run the code above in your browser using DataLab