Merge pull request rstudio#1152 from daattali/master

add placeholder option to passwordInput()

Author: wch

NEWS

@@ -47,6 +47,8 @@ shiny 0.13.2.9001
 
 * navbarMenu now has dividers and dropdown headers (#888)
 
+* Added `placeholder` option to `passwordInput`.
+
 shiny 0.13.2
 --------------------------------------------------------------------------------
 

R/input-password.R

@@ -11,10 +11,12 @@
 #' @examples
 #' passwordInput("password", "Password:")
 #' @export
-passwordInput <- function(inputId, label, value = "", width = NULL) {
+passwordInput <- function(inputId, label, value = "", width = NULL,
+                          placeholder = 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)
+    tags$input(id = inputId, type="password", class="form-control", value=value,
+               placeholder = placeholder)
   )
 }