Nothing
knitr::opts_chunk$set(echo = TRUE)
This is an R markdown document showing functionality of jsTree
library(jsTree) data(states) data(state_bird)
collapse columns to text (with sep "/")
nested_string <- apply(states,1,paste,collapse='/') jsTree(nested_string)
Add tooltips to state names with the state bird
jsTree(nested_string,tooltips = state_bird)
initialize tree with checked boxes for certain fields
nodestate1 <- states$variable=='Area' jsTree(nested_string,nodestate=nodestate1)
nodestate2 <- states$variable=='Area'&grepl('^M',states$state.name) jsTree(nested_string,nodestate=nodestate2)
nodestate3 <- states$variable %in% c('Murder') & states$value >= 10 nodestate4 <- states$variable %in% c('HS.Grad') & states$value <= 55 jsTree(nested_string,nodestate=nodestate3|nodestate4)
change the order of the hierarchy
nested_string2 <- apply(states[,c(4,1,2,3,5)],1,paste,collapse='/') jsTree(nested_string2)
Use other delimiters to define the heirarchy
nested_string <- apply(states,1,paste,collapse='|-|') jsTree(nested_string,sep = '|-|')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.