mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-05 04:05:06 -05:00
21 lines
673 B
R
21 lines
673 B
R
#' Create a password input control
|
|
#'
|
|
#' Create an password control for entry of passwords.
|
|
#'
|
|
#' @inheritParams textInput
|
|
#' @return A text input control that can be added to a UI definition.
|
|
#'
|
|
#' @family input elements
|
|
#' @seealso \code{\link{updateTextInput}}
|
|
#'
|
|
#' @examples
|
|
#' passwordInput("password", "Password:")
|
|
#' @export
|
|
passwordInput <- function(inputId, label, value = "", width = NULL) {
|
|
div(class = "form-group shiny-input-container",
|
|
style = if (!is.null(width)) paste0("width: ", validateCssUnit(width), ";"),
|
|
label %AND% tags$label(label, `for` = inputId),
|
|
tags$input(id = inputId, type="password", class="form-control", value=value)
|
|
)
|
|
}
|