R Shiny：在 UI 上的 textInput 中检查正则表达式

Question

当用户在textInput 上输入内容以反对正则表达式并发出警告时，这是否可能。

使得 textInput 区域期望：[1-5]GH[0-9]

但是当输入是：5UK8 警告应该是：Check your input

我认为这可以在 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)