returned value

Author: pvictor

NAMESPACE

@@ -3,3 +3,4 @@
 export(treeviewInput)
 importFrom(htmltools,htmlDependency)
 importFrom(shiny,addResourcePath)
+importFrom(shiny,registerInputHandler)

R/input-treeview.R

@@ -10,8 +10,8 @@
 #' @export
 #'
 #' @examples
-treeviewInput <- function(inputId, label = NULL, choices, width = NULL) {
-
+treeviewInput <- function(inputId, label = NULL, choices, return_value = c("name", "all"), width = NULL) {
+  return_value <- match.arg(return_value)
   options <- list(
     data = choices
   )
@@ -24,6 +24,7 @@ treeviewInput <- function(inputId, label = NULL, choices, width = NULL) {
     },
     tags$div(
       id = inputId, class = "treeview-input",
+      `data-return` = return_value,
       tags$script(
         type = "application/json", `data-for` = inputId,
         jsonlite::toJSON(options, auto_unbox = TRUE, json_verbatim = TRUE)

R/onLoad.R

@@ -1,8 +1,22 @@
-#' Adds the content of www to shinyWidgets/
+#' Adds the content of assets/ to shinytreeview/
 #'
-#' @importFrom shiny addResourcePath
+#' @importFrom shiny addResourcePath registerInputHandler
 #' @noRd
 #'
 .onLoad <- function(...) {
   shiny::addResourcePath("shinytreeview", system.file("assets", package = "shinytreeview"))
+  shiny::registerInputHandler("treeview.name", function(data, ...) {
+    if (is.null(data) || length(data) < 1) {
+      NULL
+    } else {
+      return(data[[1]]$text)
+    }
+  }, force = TRUE)
+  shiny::registerInputHandler("treeview.all", function(data, ...) {
+    if (is.null(data)) {
+      NULL
+    } else {
+      return(data)
+    }
+  }, force = TRUE)
 }

inst/assets/bootstrap-treeview/treeview-bindings.js

@@ -12,6 +12,13 @@ $.extend(treeviewInputBinding, {
   getId: function(el) {
     return el.id;
   },
+  getType: function(el) {
+    if ($(el).attr("data-return") == "name") {
+      return "treeview.name";
+    } else {
+      return "treeview.all";
+    }
+  },
   getValue: function(el) {
     var tree = $(el).data("treeview");
     try {