added getDefaultReactiveDomain() as default for session

dreamRs · Nov 16, 2021 · 7550090 · 7550090
1 parent 3db057f
commit 7550090
Show file tree

Hide file tree

Showing 37 changed files with 105 additions and 52 deletions.
diff --git a/R/color-pickr.R b/R/color-pickr.R
@@ -151,7 +151,7 @@ colorPickr <- function(inputId,
 #' @export
 #'
 #' @rdname colorPickr
-updateColorPickr <- function(session, inputId, value = NULL, action = NULL) {
+updateColorPickr <- function(session = getDefaultReactiveDomain(), inputId, value = NULL, action = NULL) {
   if (!is.null(action)) {
     action <- match.arg(action, c("disable", "enable", "hide", "show"))
   }

diff --git a/R/input-airDatepicker.R b/R/input-airDatepicker.R
@@ -355,7 +355,7 @@ airYearpickerInput <- function(inputId, label = NULL, value = NULL, ...) {
 #'   demoAirDatepicker("update")
 #'
 #' }
-updateAirDateInput <- function(session,
+updateAirDateInput <- function(session = getDefaultReactiveDomain(),
                                inputId,
                                label = NULL,
                                value = NULL,

diff --git a/R/input-autonumeric.R b/R/input-autonumeric.R
@@ -190,7 +190,8 @@ formatNumericInput <- function(inputId,
 #'
 #'   shinyApp(ui, server)
 #' }
-updateCurrencyInput <- function(session, inputId,
+updateCurrencyInput <- function(session = getDefaultReactiveDomain(),
+                                inputId,
                                 label = NULL,
                                 value = NULL,
                                 format = NULL) {
@@ -199,7 +200,8 @@ updateCurrencyInput <- function(session, inputId,
 }
 
 #' @rdname formaNumericInputUpdate
-updateFormatNumericInput <- function(session, inputId,
+updateFormatNumericInput <- function(session = getDefaultReactiveDomain(),
+                                     inputId,
                                      label = NULL,
                                      value = NULL,
                                      format = NULL) {
@@ -597,7 +599,8 @@ autonumericInput <- function(inputId, label, value,
 #'
 #'   shinyApp(ui, server)
 #' }
-updateAutonumericInput <- function(session, inputId,
+updateAutonumericInput <- function(session = getDefaultReactiveDomain(),
+                                   inputId,
                                    label = NULL,
                                    value = NULL,
                                    options = NULL) {

diff --git a/R/input-awesomecheckbox.R b/R/input-awesomecheckbox.R
@@ -265,7 +265,7 @@ awesomeCheckboxGroup <- function(inputId,
 #' shinyApp(ui = ui, server = server)
 #'
 #' }
-updateAwesomeCheckboxGroup <- function(session,
+updateAwesomeCheckboxGroup <- function(session = getDefaultReactiveDomain(),
                                        inputId,
                                        label = NULL,
                                        choices = NULL,

diff --git a/R/input-awesomeradio.R b/R/input-awesomeradio.R
@@ -223,7 +223,7 @@ awesomeRadio <- function(inputId,
 #' shinyApp(ui = ui, server = server)
 #'
 #' }
-updateAwesomeRadio <- function(session,
+updateAwesomeRadio <- function(session = getDefaultReactiveDomain(),
                                inputId,
                                label = NULL,
                                choices = NULL,

diff --git a/R/input-icon.R b/R/input-icon.R
@@ -100,7 +100,7 @@ textInputIcon <- function(inputId,
 #'
 #' if (interactive())
 #'   shinyApp(ui, server)
-updateTextInputIcon <- function(session,
+updateTextInputIcon <- function(session = getDefaultReactiveDomain(),
                                 inputId,
                                 label = NULL,
                                 value = NULL,
@@ -235,7 +235,7 @@ numericInputIcon <- function(inputId,
 #'
 #' if (interactive())
 #'   shinyApp(ui, server)
-updateNumericInputIcon <- function(session,
+updateNumericInputIcon <- function(session = getDefaultReactiveDomain(),
                                    inputId,
                                    label = NULL,
                                    value = NULL,

diff --git a/R/input-knob.R b/R/input-knob.R
@@ -207,7 +207,11 @@ knobInput <- function(inputId, label, value,
 #' shinyApp(ui = ui, server = server)
 #'
 #' }
-updateKnobInput <- function(session, inputId, label = NULL, value = NULL, options = NULL) {
+updateKnobInput <- function(session = getDefaultReactiveDomain(),
+                            inputId,
+                            label = NULL,
+                            value = NULL,
+                            options = NULL) {
   message <- dropNulls(list(label = label, value = value, options = options))
   session$sendInputMessage(inputId, message)
 }

diff --git a/R/input-noUiSlider.R b/R/input-noUiSlider.R
@@ -261,10 +261,14 @@ wNumbFormat <- function(decimals = NULL, mark = NULL,
 #'  demoNoUiSlider("update")
 #'
 #' }
-updateNoUiSliderInput <- function(session, inputId, value = NULL, range = NULL, disable = FALSE) {
+updateNoUiSliderInput <- function(session = getDefaultReactiveDomain(),
+                                  inputId,
+                                  value = NULL,
+                                  range = NULL,
+                                  disable = FALSE) {
   if (!is.null(range) && length(range) != 2) {
     range <- NULL
-    warning("'range' must be of lentgh 2, value will be ignored.")
+    warning("'range' must be of length 2, value will be ignored.")
   }
   message <- dropNulls(list(value = value, range = range, disable = disable))
   session$sendInputMessage(inputId, message)

diff --git a/R/input-numericRange.R b/R/input-numericRange.R
@@ -119,7 +119,10 @@ numericRangeInput <- function(inputId,
 #' @inheritParams numericRangeInput
 #' @export
 #'
-updateNumericRangeInput <- function(session, inputId, label = NULL, value = NULL) {
+updateNumericRangeInput <- function(session = getDefaultReactiveDomain(),
+                                    inputId,
+                                    label = NULL,
+                                    value = NULL) {
 
   value <- c(min(value), max(value))
 

diff --git a/R/input-pretty.R b/R/input-pretty.R
@@ -71,7 +71,7 @@ prettySwitch <- function(inputId,
 #' @export
 #'
 #' @example examples/updatePrettySwitch.R
-updatePrettySwitch <- function(session,
+updatePrettySwitch <- function(session = getDefaultReactiveDomain(),
                                inputId,
                                label = NULL,
                                value = NULL) {
@@ -196,7 +196,7 @@ prettyToggle <- function(inputId,
 #' @export
 #'
 #' @example examples/updatePrettyToggle.R
-updatePrettyToggle <- function(session,
+updatePrettyToggle <- function(session = getDefaultReactiveDomain(),
                                inputId,
                                label = NULL,
                                value = NULL) {
@@ -309,7 +309,7 @@ prettyCheckbox <- function(inputId,
 #' @export
 #'
 #' @example examples/updatePrettyCheckbox.R
-updatePrettyCheckbox <- function(session,
+updatePrettyCheckbox <- function(session = getDefaultReactiveDomain(),
                                  inputId,
                                  label = NULL,
                                  value = NULL) {
@@ -523,7 +523,7 @@ generatePretty <- function(inputId,
 #' @export
 #'
 #' @example examples/updatePrettyCheckboxGroup.R
-updatePrettyCheckboxGroup <- function(session,
+updatePrettyCheckboxGroup <- function(session = getDefaultReactiveDomain(),
                                       inputId,
                                       label = NULL,
                                       choices = NULL,
@@ -540,7 +540,7 @@ updatePrettyCheckboxGroup <- function(session,
 
 
 
-updatePrettyOptions <- function(session,
+updatePrettyOptions <- function(session = getDefaultReactiveDomain(),
                                 inputId,
                                 label = NULL,
                                 choices = NULL,
@@ -709,7 +709,7 @@ prettyRadioButtons <- function(inputId,
 #' @export
 #'
 #' @example examples/updatePrettyRadioButtons.R
-updatePrettyRadioButtons <- function(session,
+updatePrettyRadioButtons <- function(session = getDefaultReactiveDomain(),
                                      inputId,
                                      label = NULL,
                                      choices = NULL,

diff --git a/R/input-spectrum.R b/R/input-spectrum.R
@@ -162,7 +162,9 @@ spectrumInput <- function(inputId, label, choices = NULL, selected = NULL,
 #' shinyApp(ui, server)
 #'
 #' }
-updateSpectrumInput <- function(session, inputId, selected) {
+updateSpectrumInput <- function(session = getDefaultReactiveDomain(),
+                                inputId,
+                                selected) {
   session$sendInputMessage(inputId, list(value = selected))
 }
 

diff --git a/R/input-switch.R b/R/input-switch.R
@@ -325,7 +325,8 @@ switchInput <- function(inputId,
 #'   shinyApp(ui = ui, server = server)
 #'
 #' }
-updateSwitchInput <- function(session, inputId,
+updateSwitchInput <- function(session = getDefaultReactiveDomain(),
+                              inputId,
                               value = NULL, label = NULL,
                               onLabel = NULL, offLabel = NULL,
                               onStatus = NULL, offStatus = NULL,

diff --git a/R/progressBars.R b/R/progressBars.R
@@ -164,9 +164,14 @@ progressBar <- function(id,
 #' @export
 #'
 #' @rdname progress-bar
-updateProgressBar <- function(session, id, value, total = NULL,
-                              title = NULL, status = NULL,
-                              range_value = NULL, commas = TRUE,
+updateProgressBar <- function(session = getDefaultReactiveDomain(),
+                              id,
+                              value,
+                              total = NULL,
+                              title = NULL,
+                              status = NULL,
+                              range_value = NULL,
+                              commas = TRUE,
                               unit_mark = "%") {
   message <- "update-progressBar-shinyWidgets"
   if (!is.null(range_value)) {

diff --git a/R/sweetalert.R b/R/sweetalert.R
@@ -75,7 +75,7 @@ useSweetAlert <- function(theme = c("sweetalert2",
 #'
 #' @example examples/show_alert.R
 #' @example examples/show_alert-ouput.R
-sendSweetAlert <- function(session,
+sendSweetAlert <- function(session = getDefaultReactiveDomain(),
                            title = "Title",
                            text = NULL,
                            type = NULL,
@@ -204,7 +204,7 @@ show_alert <- function(title = "Title",
 #' @examples
 #' # ------------------------------------
 #' @example examples/ask_confirmation-options.R
-confirmSweetAlert <- function(session,
+confirmSweetAlert <- function(session = getDefaultReactiveDomain(),
                               inputId,
                               title = NULL,
                               text = NULL,
@@ -358,7 +358,7 @@ ask_confirmation <- function(inputId,
 #'  [closeSweetAlert()].
 #'
 #' @example examples/sweetalert-input.R
-inputSweetAlert <- function(session,
+inputSweetAlert <- function(session = getDefaultReactiveDomain(),
                             inputId,
                             title = NULL,
                             text = NULL,
@@ -486,7 +486,7 @@ inputSweetAlert <- function(session,
 #' shinyApp(ui = ui, server = server)
 #'
 #' }
-progressSweetAlert <- function(session,
+progressSweetAlert <- function(session = getDefaultReactiveDomain(),
                                id,
                                value,
                                total = NULL,

diff --git a/man/colorPickr.Rd b/man/colorPickr.Rd
diff --git a/man/formaNumericInputUpdate.Rd b/man/formaNumericInputUpdate.Rd
diff --git a/man/inputSweetAlert.Rd b/man/inputSweetAlert.Rd
diff --git a/man/progress-bar.Rd b/man/progress-bar.Rd
diff --git a/man/progressSweetAlert.Rd b/man/progressSweetAlert.Rd
diff --git a/man/sweetalert-confirmation.Rd b/man/sweetalert-confirmation.Rd
diff --git a/man/sweetalert.Rd b/man/sweetalert.Rd
diff --git a/man/updateAirDateInput.Rd b/man/updateAirDateInput.Rd
diff --git a/man/updateAutonumericInput.Rd b/man/updateAutonumericInput.Rd
diff --git a/man/updateAwesomeCheckboxGroup.Rd b/man/updateAwesomeCheckboxGroup.Rd
diff --git a/man/updateAwesomeRadio.Rd b/man/updateAwesomeRadio.Rd
diff --git a/man/updateKnobInput.Rd b/man/updateKnobInput.Rd
diff --git a/man/updateNoUiSliderInput.Rd b/man/updateNoUiSliderInput.Rd