I am creating a Shiny app with a login. For this I'm using the passwordInput function to let the user fill their password:

library(shiny)
ui <- fluidPage(
  passwordInput("password", "Password:"),
  actionButton("login", "Login"),
)
server <- function(input, output) {

}
shinyApp(ui, server)

Output:

Unfortunately, as you can see, there is no option to check what you have typed. So I was wondering if anyone knows how to add an eye icon the password input so you can check what you have typed?