coreOptions

R/jstree.R

@@ -99,6 +99,7 @@
 #'   for the list of all available options
 #' @param theme jsTree theme, one of \code{"default"},
 #'   \code{"default-dark"}, or \code{"proton"}
+#' @param coreOptions a named list of core options, for advanced usage
 #'
 #' @return A \code{htmlwidget} object.
 #'
@@ -386,7 +387,8 @@ jstree <- function(
   contextMenu = FALSE,
   checkCallback = NULL,
   grid = NULL,
-  theme = "default"
+  theme = "default",
+  coreOptions = NULL
 ){
   if(!isNodesList(nodes) && !isCallbackNodes(nodes)
      && !isAJAXnodes(nodes) && !isLAZYnodes(nodes)){
@@ -420,6 +422,7 @@ jstree <- function(
   )
   stopifnot(is.null(grid) || isNamedList(grid))
   stopifnot(isString(theme))
+  stopifnot(is.null(coreOptions) || isNamedList(coreOptions))
   # forward options using x
   x = list(
     data = nodes,
@@ -438,7 +441,8 @@ jstree <- function(
     contextMenu = contextMenu,
     checkCallback = checkCallback %||% (dragAndDrop || contextMenu),
     grid = validateGrid(grid),
-    theme = match.arg(theme, c("default", "default-dark", "proton"))
+    theme = match.arg(theme, c("default", "default-dark", "proton")),
+    coreOptions = coreOptions
   )
 
   # create widget

inst/essais/essai_expand-selected-onload-false.R

@@ -0,0 +1,43 @@
+library(jsTreeR)
+
+nodes <- list(
+  list(
+    text = "RootA",
+    state = list(selected = TRUE, undetermined = FALSE),
+    type = "root",
+    children = list(
+      list(
+        text = "ChildA1",
+        state = list(selected = TRUE, undetermined = FALSE),
+        type = "child",
+        children = list(list(text = "ChildA12",
+                             state = list(selected = TRUE, undetermined = FALSE),
+                             type = "child"))
+      ),
+      list(text = "ChildA2",
+           state = list(selected = TRUE, undetermined = FALSE),
+           type = "child")
+    )
+  ),
+  list(
+    text = "RootB",
+    state = list(selected = TRUE, undetermined = FALSE),
+    type = "root",
+    children = list(
+      list(text = "ChildB1",
+           state = list(selected = TRUE, undetermined = FALSE),
+           type = "child"),
+      list(text = "ChildB2",
+           state = list(selected = TRUE, undetermined = FALSE),
+           type = "child")
+    )
+  )
+)
+
+types <- list(root = list(icon = FALSE), child = list(icon = FALSE))
+
+jstree(nodes,
+       types = types,
+       checkboxes = TRUE,
+       coreOptions = list(expand_selected_onload = FALSE)
+)

inst/htmlwidgets/jstreer.js

@@ -217,6 +217,8 @@ HTMLWidgets.widget({
           }
         };
 
+        $.extend(options.core, x.coreOptions);
+
         if(x.types) options.types = x.types;
 
         if(x.dnd) options.dnd = x.dnd;