added updateTreeview()

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: shinytreeview
 Title: Tree View for 'shiny' Applications
-Version: 0.0.9
+Version: 0.1.0
 Authors@R: 
     c(person(given = "Victor",
              family = "Perrier",

NAMESPACE

@@ -6,6 +6,7 @@ export(make_tree)
 export(searchTreeview)
 export(treecheckInput)
 export(treeviewInput)
+export(updateTreeview)
 importFrom(htmltools,HTML)
 importFrom(htmltools,htmlDependencies)
 importFrom(htmltools,htmlDependency)

NEWS.md

@@ -1,3 +1,8 @@
+# shinytreeview 0.1.0
+
+* New function `updateTreeview()` to update label and selected value from the server.
+
+
 # shinytreeview 0.0.9
 
 * Use [phosphoricons](https://github.com/dreamRs/phosphoricons) for icons.

R/input-treecheck.R

@@ -7,6 +7,8 @@
 #' @return Server-side: A `character` value or a `list` depending on the `return_value` argument.
 #' @export
 #'
+#' @seealso [updateTreeview()] and others functions to manipulate tree server-side.
+#'
 #' @importFrom htmltools tags validateCssUnit htmlDependencies HTML
 #' @importFrom shiny icon restoreInput
 #' @importFrom jsonlite toJSON
@@ -46,10 +48,14 @@ treecheckInput <- function(inputId,
 
   tags$div(
     class = "form-group shiny-input-container",
-    style = if(!is.null(width)) paste("width:", validateCssUnit(width)),
-    if (!is.null(label)) {
-      tags$label(class = "control-label", `for` = inputId, label)
-    },
+    style = if (!is.null(width)) paste("width:", validateCssUnit(width)),
+    tags$label(
+      id = paste0(inputId, "-label"),
+      class = "control-label",
+      class = if (is.null(label)) "shiny-label-null",
+      `for` = inputId,
+      label
+    ),
     tags$div(
       id = inputId, class = "treecheck-input",
       `data-return` = return_value,

R/input-treeview.R

@@ -20,6 +20,8 @@
 #' @return Server-side: A \code{character} value or a \code{list} depending on the \code{return_value} argument.
 #' @export
 #'
+#' @seealso [updateTreeview()] and others functions to manipulate tree server-side.
+#'
 #' @importFrom htmltools tags validateCssUnit HTML
 #' @importFrom jsonlite toJSON
 #' @importFrom shiny restoreInput
@@ -59,10 +61,14 @@ treeviewInput <- function(inputId,
 
   tags$div(
     class = "form-group shiny-input-container",
-    style = if(!is.null(width)) paste("width:", validateCssUnit(width)),
-    if (!is.null(label)) {
-      tags$label(class = "control-label", `for` = inputId, label)
-    },
+    style = if (!is.null(width)) paste("width:", validateCssUnit(width)),
+    tags$label(
+      id = paste0(inputId, "-label"),
+      class = "control-label",
+      class = if (is.null(label)) "shiny-label-null",
+      `for` = inputId,
+      label
+    ),
     tags$div(
       id = inputId, class = "treeview-input",
       `data-return` = return_value,

R/server-treeview.R

@@ -1,5 +1,7 @@
 
-#' Search a \code{treeviewInput}
+#' @title Manipulate a tree server-side
+#'
+#' @description Interact with a tree contructed with [treeviewInput()] or [treecheckInput()] from the server.
 #'
 #' @param inputId The id of the input object.
 #' @param pattern Pattern to search for.
@@ -9,9 +11,11 @@
 #' @param collapse_before Collapse all nodes before revealing results.
 #' @param session The session object passed to function given to shinyServer.
 #'
-#' @return None.
+#' @return No value, side-effects only.
 #' @export
 #'
+#' @name tree-server
+#'
 #' @example examples/search.R
 searchTreeview <- function(inputId,
                            pattern,
@@ -33,20 +37,14 @@ searchTreeview <- function(inputId,
 }
 
 
-
-#' Expand or collapse a \code{treeviewInput}
-#'
-#' @param inputId The id of the input object.
 #' @param nodeId Id of the node to expand or collapse,
 #'  use \code{input$<inputId>_nodes} to see the Ids.
 #'  If \code{NULL} expand the all tree.
 #' @param levels Levels to expand.
-#' @param session The session object passed to function given to shinyServer.
 #'
-#' @return None.
 #' @export
 #'
-#' @name expand-collapse
+#' @rdname tree-server
 #'
 #' @example examples/collapse-expand.R
 expandTreeview <- function(inputId,
@@ -62,8 +60,9 @@ expandTreeview <- function(inputId,
   session$sendInputMessage(inputId, message)
 }
 
+
 #' @export
-#' @rdname expand-collapse
+#' @rdname tree-server
 collapseTreeview <- function(inputId,
                              nodeId = NULL,
                              session = shiny::getDefaultReactiveDomain()) {
@@ -74,7 +73,17 @@ collapseTreeview <- function(inputId,
 }
 
 
-
+#' @inheritParams treeviewInput
+#' @export
+#' @rdname tree-server
+#'
+#' @example examples/update.R
+updateTreeview <- function(inputId,
+                           label = NULL,
+                           selected = NULL,
+                           session = shiny::getDefaultReactiveDomain()) {
+  session$sendInputMessage(inputId, dropNulls(list(label = label, selected = list1(selected))))
+}
 
 
 

examples/collapse-expand.R

@@ -1,4 +1,9 @@
 
+
+
+# expand/collapse ---------------------------------------------------------
+
+
 library(shiny)
 library(shinytreeview)
 

examples/search.R

@@ -1,3 +1,5 @@
+# searchTreeview ----------------------------------------------------------
+
 
 library(shiny)
 library(shinytreeview)

examples/update.R

@@ -0,0 +1,39 @@
+
+
+
+# updateTreeview ----------------------------------------------------------
+
+
+library(shiny)
+library(shinytreeview)
+
+data("cities")
+
+ui <- fluidPage(
+  tags$h3("Update label & selected value"),
+  treeviewInput(
+    inputId = "tree",
+    label = "Choose a city:",
+    choices = make_tree(cities, c("continent", "country", "city")),
+    multiple = FALSE,
+    prevent_unselect = TRUE
+  ),
+  verbatimTextOutput(outputId = "result"),
+  textInput("label", "New label:", "Choose a city:"),
+  radioButtons(
+    "selected", "Selected:",
+    choices = unique(c(cities$continent, cities$country, cities$city)),
+    inline = TRUE
+  )
+)
+
+server <- function(input, output, session) {
+  output$result <- renderPrint({
+    input$tree
+  })
+  observe(updateTreeview(inputId = "tree", label = input$label))
+  observe(updateTreeview(inputId = "tree", selected = input$selected))
+}
+
+if (interactive())
+  shinyApp(ui, server)