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

Posted 2021-05-03

当用户在textInput上输入正则表达式并发出警告时，这是否可行？

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

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

我认为这可以使用UI内部的JS来完成，但有没有任何闪亮的技巧？或者，如果您可以帮助使用java脚本。

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

答案

也许与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)