Shiny example checkWithText

inst/examples/checkWithText/global.R

@@ -0,0 +1,27 @@
+library(jsTreeR)
+library(shiny)
+
+nodes <- list(
+  list(
+    text = "RootA",
+    children = list(
+      list(
+        text = "ChildA1"
+      ),
+      list(
+        text = "ChildA2"
+      )
+    )
+  ),
+  list(
+    text = "RootB",
+    children = list(
+      list(
+        text = "ChildB1"
+      ),
+      list(
+        text = "ChildB2"
+      )
+    )
+  )
+)

inst/examples/checkWithText/server.R

@@ -0,0 +1,13 @@
+shinyServer(
+  function(input, output, session){
+
+    output[["tree1"]] <- renderJstree({
+      jstree(nodes, checkboxes = TRUE)
+    })
+
+    output[["tree2"]] <- renderJstree({
+      jstree(nodes, checkboxes = TRUE, checkWithText = FALSE)
+    })
+
+  }
+)

inst/examples/checkWithText/ui.R

@@ -0,0 +1,19 @@
+shinyUI(
+  fluidPage(
+    tags$h3("The `checkWithText` option."),
+    br(),
+    splitLayout(
+      tagList(
+        tags$h4("`checkWithText` is `TRUE` (default)"),
+        helpText("You can click on a node text to select this node.")
+      ),
+      tagList(
+        tags$h4("`checkWithText` is `FALSE`"),
+        helpText("Try to click on a node text.")
+      )
+    ),
+    splitLayout(
+      jstreeOutput("tree1"), jstreeOutput("tree2")
+    )
+  )
+)