inst/examples/filtering/server.R

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

shinyServer(
  function(input, output, session){

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

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

  }
)