Hi,

Just curious is this jsTree more geared for Github repositories or is that a bonus feature? Also how does it contrast with
https://github.com/trestletech/shinyTree?

Does it use the latest version of jsTree?

Hi @yonicd-
I have been playing around a lot the past 24 hours with your package and I was trying to figure out how to get rid of the root folder '.' created automatically please?

I don't create this root myself not sure why it is getting added.
Many thanks, Dylan

I noticed that you have marked exposing the custom icons as an enhancement. It would also be generally useful to have access to as many of the jsTree plugins as possible. For example, I would love to be able to use the three_state checkbox.

Thanks for this cool package!

Hi - how could we use custom icons for the items/folders? Is there an example...
I saw a folder of themes? how could we pass with core options?

Does this support crosstalk? if so is there an example?
https://rstudio.github.io/crosstalk/

Is there a way we can define an array to be used to order the folders

I know I can use shiny to catch events on the tree. Is it possible to do this just using Javascript with the jsTree htmlwidget?

I have tried to use the htmlwidgets package and appendContent, but I am not sure how to set up up the listener. The jsTree documentation shows how to do it in Javascript. Other widgets seem to insert a listener using a callback.

I am using jsTree in an R Shiny code for Hierarchical dropdowns and I need to disable the multi select option(Multi select is a default option in jsTree).

Please find the sample code snippet that I am using for this.

Region<-c("South","South","South","South","North","North","West","East","West","East")
State<-c("State1","State2","State2","State2","State3","State4","State5","State6","State7","State8")
City<-c("City1","City2","City3","City4","City5","City6","City7","City8","City9","City10")
superfundsite1=data.frame(Region,State,City)
myx10 <- apply(superfundsite1,1,function(x) paste(x,collapse = '/'))
jsTree(myx10)

Hi - is there a way to clear selections for expand / collapse?

Hi there- the 1.0.1 version from CRAN AND from GitHub of jsTree works fine with the example from the repo (pasted below):

library(jsTree)

ui <- shiny::fluidPage(
  shiny::column(width=4,jsTree::jsTreeOutput('tree')),
  shiny::column(width=8,shiny::uiOutput('chosen'))
)

server <- function(input, output,session) {
  network <- shiny::reactiveValues()
  shiny::observeEvent(input$tree_update,{
    current_selection <- input$tree_update$.current_tree
    if(!is.null(current_selection)) 
      network$tree <- jsonlite::fromJSON(current_selection)
  })
  
  shiny::observeEvent(network$tree,{
    output$results <- shiny::renderPrint({
      str.out <- ''
      if(length(network$tree)>0)
        str.out=network$tree
      return(str.out)
    })    
  })
  
  output$chosen <- shiny::renderUI({
    list(shiny::h3('Selected Items'),
         shiny::verbatimTextOutput(outputId = "results"))
  })
  
  output$tree <- jsTree::renderJsTree({
    nested_string <- apply(states,1,paste,collapse='/')
    jsTree(nested_string,browse = FALSE)
  })
}

shinyApp(ui, server)

But it does lack of some further support fore more arguments such as 'core' newly introduced. However the 1.0.3 version installed from GitHub failed to render. The Rstudio show the HTML widget in viewer but not in the we app itself.

The error I have in the shiny app is:

Listening on http://127.0.0.1:5618
Warning: Error in : $ operator is invalid for atomic vectors
  78: origRenderFunc
  77: output$tree
   1: runApp

SessionInfo is:
sessionInfo()
R version 3.4.4 (2018-03-15)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows Server >= 2012 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252 LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C LC_TIME=English_United States.1252

attached base packages:
[1] stats graphics grDevices utils datasets methods base

other attached packages:
[1] jsTree_1.0.3 shiny_1.0.5.9000

loaded via a namespace (and not attached):
[1] Rcpp_0.12.16 crayon_1.3.4 digest_0.6.15 later_0.7.1.9000 mime_0.5 R6_2.2.2 xtable_1.8-2 jsonlite_1.5
[9] magrittr_1.5 rlang_0.2.0 rstudioapi_0.7 data.table_1.11.0 promises_1.0.1 tools_3.4.4 htmlwidgets_1.2 httpuv_1.4.1.9000
[17] yaml_2.1.18 compiler_3.4.4 htmltools_0.3.6

To allow the navigation bar in shinyDashboard to work correctly there is a css conflict.
I've had to use the following when coupling shinyDashboard which also has "nav" in the dom

dashboardBody(
tags$style(HTML('
nav {
float: none !important;
padding: 0 !important;
max-width: none !important;
} '))

otherwise it will cause the navigation bar to be skewed ; perhaps in the css and object nav could be called something more unique due to the conflict with shinyDashboard?

jstree.min.js:6 [Deprecation] document.registerElement is deprecated and will be removed in M73, around March 2019. Please use window.customElements.define instead. See https://www.chromestatus.com/features/4642138092470272 for more details.
(anonymous) @ jstree.min.js:6

Hi @yonicd , sorry I could test the plugins_api banch earlier but I upgraded this morning and this is not working anymore:

data(states)
data(state_bird)
#collapse columns to text (with sep "/")
nested_string <- apply(states,1,paste,collapse='/')
jsTree(nested_string)

Hi @yonicd , thanks very much for your support on this.
There is not final thing I wanted to discuss with you: the fact that when clicking on the parent note, all the childrens get also selected while I did use core = list(multiple = FALSE).
How can I make sure that you can only select the deeper node and making impossible selection of parent ?