jQuery Mask Плагин с г блестящим textInput

Question

Есть ли способ сделать что-то вроде jQuery Mask Plugin с R-Shiny textInput?

Я пытаюсь заставить textInput отображать маску при наборе текста.

Пример. Я хочу набрать 11111111111, и при вводе значения textInput отобразится 111.111.111-11.

Есть идеи?

Answer 1

Вы имеете в виду что-то подобное?Или что-то более модное?;)

library(shiny)
library(stringi)

ui <- fluidPage(
  textInput("textin", "Enter Text"),
  textOutput("text")
)

server <- function(input, output) {
  output$text <- renderText({
    textout <- input$textin
    textout <- paste(stri_sub(textout, 1, 3),".",
                     stri_sub(textout, 4, 6), ".",
                     stri_sub(textout, 7, 9), "-",
                     stri_sub(textout, 10, 12), ".",
                     stri_sub(textout, 13, 14), ".")

    print(textout)
  })
}

shinyApp(ui, server)