#' @export
useTree <- function(tree_name){
if(!tree_exists(tree_name))
tree_name = start_tree(gsub('^\\.|/| |\\$|?|@|#|%|&|\\*|\\(|\\)|^|ยจ', '', tree_name))
options("sits.rep.env$CURRENT_TREE"=tree_name)
return(tree_name)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.