From c94c298dd063fb70df538c13d29805d4188ef860 Mon Sep 17 00:00:00 2001
From: pvictor <perrier.victor@gmail.com>
Date: Thu, 23 May 2024 09:54:43 +0200
Subject: [PATCH] updateSliderTextInput added default session, fix #693

---
 R/input-sliderText.R         | 8 +++++++-
 man/updateSliderTextInput.Rd | 2 +-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/R/input-sliderText.R b/R/input-sliderText.R
index 1c94960f..862aef16 100644
--- 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
index 89322e12..e1624a59 100644
--- a/man/updateSliderTextInput.Rd
+++ b/man/updateSliderTextInput.Rd
@@ -5,7 +5,7 @@
 \title{Change the value of a slider text input on the client}
 \usage{
 updateSliderTextInput(
-  session,
+  session = getDefaultReactiveDomain(),
   inputId,
   label = NULL,
   selected = NULL,