Skip to contents

Esta función proporciona un widget de entrada de contraseña para Shiny, que incluye una barra de fortaleza de contraseña proveniente de la libreria react-password-strength-bar. La barra de fortaleza muestra la seguridad del texto ingresado basándose en cinco posibles estados, siendo el estado mayor el más seguro. El widget de entrada crea una lista en Shiny que contiene el texto ingresado y la puntuación de seguridad, que varía de 0 a 4.

Usage

strengthBarInput(
  inputId,
  label = "Contraseña",
  icon = "lock",
  scoreWords = c("Insegura", "Mala", "Regular", "Buena", "Excelente"),
  minLength = 6,
  shortScoreWord = "Muy Corta"
)

Arguments

inputId

Character. Id del input.

label

Character. Texto del input.

icon

Character. Icono que aparece al lado del texto del input.

scoreWords

Character. El nombre para cada estado de la barra, tienen que ser cinco.

minLength

Numeric. La cantidad mínima de caracteres para que no aparezca la leyenda definida en shortScoreWord.

shortScoreWord

Character. Texto que se muestra cuando no se alcanzan la cantidad mínima de caracteres.

Value

Lista con valor del input y nivel de seguridad.

Examples

if (FALSE) {
library(shiny)
devtools::load_all()

ui <- fluidPage(
  fontawesome::fa_html_dependency(),
  column(
    width = 6,
    strengthBarInput("textInput"),
    textOutput("textOutput"),
    actionButton("calcular", "Calcular")
  )
)

server <- function(input, output, session) {

  valor <- reactiveValues(password = "", score = 0)

  observeEvent(input$calcular, {
    valor$password <- input$textInput$password
    valor$score <- input$textInput$score
  })

  output$textOutput <- renderText({
    glue::glue(
      "Password: {valor$password} | Score: {valor$score}"
    )
  })
}

shinyApp(ui, server)
}