if(interactive()) {
# Shiny Interaction
shiny::runApp(system.file("examples/02shiny", package = "collapsibleTree"))
# Interactive Gradient Mapping
shiny::runApp(system.file("examples/03shiny", package = "collapsibleTree"))
}
Run the code above in your browser using DataLab