Expand/Collapse buttons at the top of the tree

[mangupedia]

Brilliant work on the fork ! Thanks a lot.

https://github.com/metrumresearchgroup/jsTree
Expand/Collapse buttons are offered by jsTree package. Do we have something similar on this?

Or can we configure that using javascript and action buttons to Expand/Collapse nodes for the full tree or may be till some specific node level?

[bellma-lilly]

You can implement this with an action button. When the action button is pressed, set the stopened attribute for each node (attr(output_tree, "stopened") <- TRUE) and update the tree.

javascript would be faster, but it is not implemented in shinyTree

[YsoSirius]

Or you run the JS code with shinyjs and some actionButtons.

library(shiny)
library(shinyTree)
library(shinyjs)

ui <- {fluidPage(
  useShinyjs(),
  actionButton("closeAll", "Close Tree"),
  actionButton("openAll", "Open Tree"),
  shinyTree("tree")
)}

server <- function(input, output, session) {
  output$tree <- renderTree({
    list(
      root1 = list(
        SubListA = list(leaf1 = "", leaf2 = "", leaf3=""),
        SubListAB = list(leaf1 = "", leaf2 = "", leaf3=""),
        SubListAC = list(leaf1 = "", leaf2 = "", leaf3="")
      ),
      root2 = list(
        SubListB = list(leaf1 = "", leaf2 = "", leaf3=""),
        SubListBA = list(leaf1 = "", leaf2 = "", leaf3=""),
        SubListBC = list(leafA = "", leafB = "")
      )
    )
  })
  observeEvent(input$closeAll, {
    runjs(HTML('$("#tree").jstree("close_all");'))
  })
  observeEvent(input$openAll, {
    runjs(HTML('$("#tree").jstree("open_all");'))
  })
}

shinyApp(ui,server)