【发布时间】:2018-11-17 15:36:38
【问题描述】:
有没有办法用R-Shiny textInput 做类似jQuery Mask Plugin 的事情?
我正在尝试让textInput 在我输入时显示一个掩码。
示例:我想输入 11111111111,当我输入时,textInput 值显示为 111.111.111-11。
有什么想法吗?
【问题讨论】:
标签: r shiny shinydashboard textinput jquery-mask
有没有办法用R-Shiny textInput 做类似jQuery Mask Plugin 的事情?
我正在尝试让textInput 在我输入时显示一个掩码。
示例:我想输入 11111111111,当我输入时,textInput 值显示为 111.111.111-11。
有什么想法吗?
【问题讨论】:
标签: r shiny shinydashboard textinput jquery-mask
你的意思是这样的吗? 或者更花哨的东西? ;)
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)
【讨论】: