library(shiny)
library(shinyTree)
#' Define server logic required to generate a simple tree
#' @author Jeff Allen \email{jeff@@trestletech.com}
shinyServer(function(input, output, session) {
log <- c(paste0(Sys.time(), ": Interact with the tree to see the logs here..."))
output$tree <- renderTree({
list(
root1 = structure("", stselected=TRUE, sticon="signal"),
root2 = structure(list(
SubListA = list(leaf1 = "", leaf2 = "", leaf3=""),
SubListB = structure(list(leafA = "", leafB = ""), stdisabled=TRUE)
),
stopened=TRUE
)
)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.