R Shiny: Проверьте регулярное выражение в textInput на пользовательском интерфейсе

Question

Возможно ли это, когда пользователь вводит что-то в textInput против регулярного выражения и выдает предупреждение.

Так, что область textInput ожидает: [1-5]GH[0-9]

Но когдаввод: 5UK8 Предупреждение должно быть: Check your input

Я думаю, что это можно сделать с помощью 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)