# NOT RUN {
if(interactive()){
data(states)
data(state_bird)
#collapse columns to text (with sep "/")
nested_string <- apply(states,1,paste,collapse='/')
jsTree(nested_string)
#pass additional parameters to core
jsTree(nested_string,core=list(multiple=FALSE))
# 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 jsTree to visualize folder structure
jsTree(list.files(full.names = TRUE,recursive = FALSE))
# }
# NOT RUN {
# This may be too long for example if running from ~.
jsTree(list.files(full.names = TRUE,recursive = TRUE))
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab