mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-10 07:28:01 -05:00
531f31b66f
* textInput: Add updateOn parameter and allow setting debounce delay * `devtools::document()` (GitHub Actions) * `yarn build` (GitHub Actions) * Update news * Remove debounce parameter * `devtools::document()` (GitHub Actions) * `yarn build` (GitHub Actions) * Add updateOn parameter to numericInput, passwordInput * Add updateOn to textAreaInput() * `devtools::document()` (GitHub Actions) * feat: Ignore change events unless from server messages when `updateOn="blur"` * refactor: `updateOn="change"` instead of `"input"` * feat: Update inputs on Enter or Cmd/Ctrl+Enter (textarea) * chore: Document `...` and ensure they are empty * chore: Use `rlang::arg_match()` * chore: code style (air format) * fix: textAreaInput, not inputTextArea * docs(NEWS): Minor edit * chore: If element has focus, ignore change event --------- Co-authored-by: wch <wch@users.noreply.github.com> Co-authored-by: Garrick Aden-Buie <garrick@adenbuie.com>
67 lines
1.6 KiB
R
67 lines
1.6 KiB
R
#' Create a numeric input control
|
|
#'
|
|
#' Create an input control for entry of numeric values
|
|
#'
|
|
#' @inheritParams textInput
|
|
#' @param min Minimum allowed value
|
|
#' @param max Maximum allowed value
|
|
#' @param step Interval to use when stepping between min and max
|
|
#' @return A numeric input control that can be added to a UI definition.
|
|
#'
|
|
#' @family input elements
|
|
#' @seealso [updateNumericInput()]
|
|
#'
|
|
#' @examples
|
|
#' ## Only run examples in interactive R sessions
|
|
#' if (interactive()) {
|
|
#'
|
|
#' ui <- fluidPage(
|
|
#' numericInput("obs", "Observations:", 10, min = 1, max = 100),
|
|
#' verbatimTextOutput("value")
|
|
#' )
|
|
#' server <- function(input, output) {
|
|
#' output$value <- renderText({ input$obs })
|
|
#' }
|
|
#' shinyApp(ui, server)
|
|
#' }
|
|
#'
|
|
#' @section Server value:
|
|
#' A numeric vector of length 1.
|
|
#'
|
|
#' @export
|
|
numericInput <- function(
|
|
inputId,
|
|
label,
|
|
value,
|
|
min = NA,
|
|
max = NA,
|
|
step = NA,
|
|
width = NULL,
|
|
...,
|
|
updateOn = c("change", "blur")
|
|
) {
|
|
rlang::check_dots_empty()
|
|
updateOn <- rlang::arg_match(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),
|
|
`data-update-on` = updateOn
|
|
)
|
|
if (!is.na(min)) inputTag$attribs$min = min
|
|
if (!is.na(max)) inputTag$attribs$max = max
|
|
if (!is.na(step)) inputTag$attribs$step = step
|
|
|
|
div(
|
|
class = "form-group shiny-input-container",
|
|
style = css(width = validateCssUnit(width)),
|
|
shinyInputLabel(inputId, label),
|
|
inputTag
|
|
)
|
|
}
|