javascript - R Shiny : Check a Regular expression in textInput on UI

Question

当用户在 textInput 上输入某些内容以对抗正则表达式并发出警告时，这可能吗？

这样，textInput 区域需要:[1-5]GH[0-9]

但是当输入是:5UK8 警告应该是:检查您的输入

我认为这可以在 UI 中使用 JS 来完成，但是有什么 Shiny 的技巧吗？或者如果您可以帮助编写 Java 脚本。

ui <- fluidPage(
  textInput("id", "Enter your ID",),
  verbatimTextOutput("value")
)
server <- function(input, output) {
  output$value <- renderText({ input$id })
}
shinyApp(ui, server)

Answer 1

也许有shinyFeedback？

library(shiny)
library(shinyFeedback)

ui <- fluidPage(
  useShinyFeedback(),

  textInput("id", "Enter your ID",),

  verbatimTextOutput("value")
)

server <- function(input, output) {

  observeEvent(input$id, {
    feedbackWarning(
      "id",
      condition = !grepl("[1-5]GH[0-9]", input$id)
    )
  })

  output$value <- renderText({ input$id })
}

shinyApp(ui, server)