fixed selected values at init

dreamRs · Sep 7, 2022 · 334f17d · 334f17d
1 parent cf848ba
commit 334f17d
Show file tree

Hide file tree

Showing 5 changed files with 242 additions and 316 deletions.
diff --git a/R/input-treeview.R b/R/input-treeview.R
@@ -38,6 +38,10 @@ treeviewInput <- function(inputId,
                           width = NULL) {
   selected <- shiny::restoreInput(id = inputId, default = selected)
   return_value <- match.arg(return_value)
+  if (!isTRUE(multiple) && length(selected) > 1) {
+    warning("Multiple selected values used but multiple = FALSE, only first one will be selected.")
+    selected <- selected[1]
+  }
   options <- dropNulls(list(
     config = c(
       list(

diff --git a/inst/packer/treeview.js b/inst/packer/treeview.js