tilegrobNest <- function(tc,name) {
currgTree <- gTree(name = name,
children = tc$currgList)
tc$currgList <- NULL
tc$grob <- addGrob(tc$grob,currgTree)
tc
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.