rstudio · wch · Feb 3, 2025 · Feb 3, 2025 · Feb 3, 2025 · Feb 3, 2025
diff --git a/NEWS.md b/NEWS.md
@@ -11,6 +11,9 @@
 
 * Shiny's Typescript assets are now compiled to ES2021 instead of ES5. (#4066)
 
+* When `textInput()` is called with `updateOn="blur"`, the input value will update only when the text input loses focus, or when the user presses Enter, instead of updating as the user types. (#4183)
+
+
 ## Bug fixes
 
 * Fixed a bug with modals where calling `removeModal()` too quickly after `showModal()` would fail to remove the modal if the remove modal message was received while the modal was in the process of being revealed. (#4173)

diff --git a/R/input-numeric.R b/R/input-numeric.R
@@ -30,13 +30,14 @@
 #'
 #' @export
 numericInput <- function(inputId, label, value, min = NA, max = NA, step = NA,
-  width = NULL) {
+  width = NULL, ..., updateOn = c("input", "blur")) {
+  updateOn <- match.arg(updateOn)
 
   value <- restoreInput(id = inputId, default = value)
 
   # build input tag
   inputTag <- tags$input(id = inputId, type = "number", class="shiny-input-number form-control",
-                         value = formatNoSci(value))
+                         value = formatNoSci(value), `data-update-on` = updateOn)
   if (!is.na(min))
     inputTag$attribs$min = min
   if (!is.na(max))

diff --git a/R/input-password.R b/R/input-password.R
@@ -31,11 +31,13 @@
 #' }
 #' @export
 passwordInput <- function(inputId, label, value = "", width = NULL,
-                          placeholder = NULL) {
+                          placeholder = NULL, ..., updateOn = c("input", "blur")) {
+  updateOn <- match.arg(updateOn)
+
   div(class = "form-group shiny-input-container",
     style = css(width = validateCssUnit(width)),
     shinyInputLabel(inputId, label),
     tags$input(id = inputId, type="password", class="shiny-input-password form-control", value=value,
-               placeholder = placeholder)
+               placeholder = placeholder, `data-update-on` = updateOn)
   )
 }
diff --git a/R/input-text.R b/R/input-text.R
@@ -10,6 +10,10 @@
 #' @param placeholder A character string giving the user a hint as to what can
 #'   be entered into the control. Internet Explorer 8 and 9 do not support this
 #'   option.
+#' @param updateOn A character vector specifying when the input should be
+#'   updated. Options are `"input"` (default) and `"blur"`. If `"blur"`, then
+#'   the input value will be updated when the text input loses focus, or when
+#'   Enter is pressed.
 #' @return A text input control that can be added to a UI definition.
 #'
 #' @family input elements
@@ -35,14 +39,16 @@
 #'
 #' @export
 textInput <- function(inputId, label, value = "", width = NULL,
-  placeholder = NULL) {
+  placeholder = NULL, ..., updateOn = c("input", "blur")) {
+
+  updateOn <- match.arg(updateOn)
 
   value <- restoreInput(id = inputId, default = value)
 
   div(class = "form-group shiny-input-container",
     style = css(width = validateCssUnit(width)),
     shinyInputLabel(inputId, label),
     tags$input(id = inputId, type="text", class="shiny-input-text form-control", value=value,
-      placeholder = placeholder)
+      placeholder = placeholder, `data-update-on` = updateOn)
   )
 }
diff --git a/R/input-textarea.R b/R/input-textarea.R
@@ -42,7 +42,8 @@
 #'
 #' @export
 textAreaInput <- function(inputId, label, value = "", width = NULL, height = NULL,
-  cols = NULL, rows = NULL, placeholder = NULL, resize = NULL) {
+  cols = NULL, rows = NULL, placeholder = NULL, resize = NULL, ...,
+  updateOn = c("input", "blur")) {
 
   value <- restoreInput(id = inputId, default = value)
 
@@ -67,6 +68,7 @@ textAreaInput <- function(inputId, label, value = "", width = NULL, height = NUL
       style = style,
       rows = rows,
       cols = cols,
+      `data-update-on` = updateOn,
       value
     )
   )

diff --git a/inst/www/shared/shiny.js b/inst/www/shared/shiny.js
diff --git a/inst/www/shared/shiny.js.map b/inst/www/shared/shiny.js.map
diff --git a/inst/www/shared/shiny.min.js b/inst/www/shared/shiny.min.js
diff --git a/inst/www/shared/shiny.min.js.map b/inst/www/shared/shiny.min.js.map
diff --git a/man/numericInput.Rd b/man/numericInput.Rd
diff --git a/man/passwordInput.Rd b/man/passwordInput.Rd
diff --git a/man/textAreaInput.Rd b/man/textAreaInput.Rd
diff --git a/man/textInput.Rd b/man/textInput.Rd
diff --git a/srcts/src/bindings/input/text.ts b/srcts/src/bindings/input/text.ts
@@ -50,20 +50,32 @@ class TextInputBindingBase extends InputBinding {
   }
 
   subscribe(el: TextHTMLElement, callback: (x: boolean) => void): void {
-    $(el).on(
-      "keyup.textInputBinding input.textInputBinding",
-      // event: Event
-      function () {
-        callback(true);
-      }
-    );
-    $(el).on(
+    const $el = $(el);
+    const updateOn = $el.data("update-on") || "input";
+
+    if (updateOn === "input") {
+      $el.on(
+        "keyup.textInputBinding input.textInputBinding",
+        // event: Event
+        function () {
+          callback(true);
+        }
+      );
+    }
+
+    $el.on(
       "change.textInputBinding",
       // event: Event
       function () {
         callback(false);
       }
     );
+
+    if (updateOn === "blur") {
+      $el.on("blur.textInputBinding", function () {
+        callback(false);
+      });
+    }
   }
   unsubscribe(el: TextHTMLElement): void {
     $(el).off(".textInputBinding");