r - 带有 r 闪亮 textInput 的 jQuery 掩码插件

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)