# NOT RUN {
########################################################################
# Display the "the human condition" theme hierarchy in tree format #
########################################################################
theme_name <- "the human condition"
mytheme <- theme$new(theme_name)
print_tree(mytheme, pruneMethod = "dist", limit = 50)
# }
Run the code above in your browser using DataLab