闪亮 - 如何在不使用密码输入的情况下将文本输入中的字符替换为***？

Question

我在ShinyApp中使用TextInput。 当用户写时，我想看到 - “ ****” - 喜欢密码字段， 但是我不想使用passwordInput，如何仅使用textInput？

if (interactive()) {
  
  ui <- fluidPage(
    textInput("caption", "Caption", "Data Summary"),
    verbatimTextOutput("value")
  )
  server <- function(input, output) {
    output$value <- renderText({ input$caption })
  }
  shinyApp(ui, server)
}

Answer 1

您可以定义一个自定义函数：

textInputStars <- function(inputId, label, value = "", width = NULL,
                      placeholder = NULL) {
  
  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="password", class="form-control", value=value,
                 placeholder = placeholder)
  )
}

基于： https：// https：// github.com/rstudio/shiny/blob/main/r/input-password.r

请注意，此实现几乎与passwordInput（请参阅： https：https：// /github.com/rstudio/shiny/blob/main/r/input-password.r ），此外输入还将恢复。

Answer 2

没有passwordInput（）进行更新
textInputicon（来自ShinyWidgets）

library(shiny)

passwordInput_custom <-
  '<div class="form-group shiny-input-container">
        <label class="control-label" id="txt_password-label" for="txt_password"></label>
          <i class="fa fa-user" role="presentation" aria-label="user icon"></i>
        </span>
      <input id="txt_password" type="password" class="form-control" value=""/>
    </div>'

ui <- fluidPage(tagList(HTML(passwordInput_custom)),
                textOutput('psswd'))

server <- function(input, output, session) {
  output$psswd <- renderText({
    input$txt_password
  })
  
}

shinyApp(ui, server)

改编自Heres https://i.sstatic.net/5ipzi.png“ rel =“ nofollow noreferrer”>

第一个答案：
使用passwordInput（）

来自 htttps：https：// shiny.rstudio.com/reference/shiny/1.6.0/passwordinput.html

library(shiny)

ui <- fluidPage(
  passwordInput("password", "Password:"),
  actionButton("go", "Go"),
  verbatimTextOutput("value")
)
server <- function(input, output) {
  output$value <- renderText({
    req(input$go)
    isolate(input$password)
  })
}
shinyApp(ui, server)