updateSliderTextInput added default session, fix #693

dreamRs · May 23, 2024 · c94c298 · c94c298
1 parent cd0d228
commit c94c298
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/R/input-sliderText.R b/R/input-sliderText.R
@@ -237,7 +237,13 @@ sliderTextInput <- function (inputId,
 #'
 #' shinyApp(ui = ui, server = server)
 #' }
-updateSliderTextInput <- function (session, inputId, label = NULL, selected = NULL, choices = NULL, from_fixed = NULL, to_fixed = NULL) {
+updateSliderTextInput <- function (session = getDefaultReactiveDomain(),
+                                   inputId,
+                                   label = NULL,
+                                   selected = NULL,
+                                   choices = NULL,
+                                   from_fixed = NULL,
+                                   to_fixed = NULL) {
   message <- dropNulls(list(
     label = label, selected = selected, choices = choices,
     from_fixed = from_fixed, to_fixed = to_fixed

diff --git a/man/updateSliderTextInput.Rd b/man/updateSliderTextInput.Rd