inst/examples/gridFiltering/server.R

In jsTreeR: A Wrapper of the JavaScript Library 'jsTree'

shinyServer(
  function(input, output, session){

    output[["tree"]] <- renderJstree({
      jstree(nodes, grid = grid, checkboxes = TRUE) %>%
        onRender(onrender)
    })

    observeEvent(input[["range"]], {
      session$sendCustomMessage("hideNodes", input[["range"]])
    })

  }
)