Shiny动态切换UI后shinyvalidate警告消息不显示问题求助

我开发了一个Shiny应用，可根据用户选择动态移除和插入输入UI。选择choice1和choice2生成的UI存在部分共享输入字段，我希望使用shinyvalidate包为这些共享输入添加验证规则。示例中，用户在侧边栏选择选项后，主面板中ID为content的div会被删除并插入新div。验证规则看似生效，但切换选项时，除非先在输入框中输入内容，否则红色警告消息不会显示。

问题演示：

原代码示例 #

library(shiny)
library(glue)
library(shinyvalidate)

ui <- fluidPage(
  sidebarPanel(
    selectInput("select", label = "select", choices = c("", "choice1", "choice2"))
  ),
  mainPanel(id = "main",
            tags$div(id = "content"))
)

server <- function(input, output) {

  # 初始化验证器
  iv <- InputValidator$new()
  iv$add_rule("input", sv_required())
  iv$enable()

  observeEvent(input$select, {
    if(input$select == "choice1"){
      removeUI("#content")
      insertUI("#main", ui = tags$div(
        id = "content", 
        textInput("input", "input")))
    } 
    if(input$select == "choice2"){
      removeUI("#content")
      insertUI("#main", ui = tags$div(
        id = "content", 
        textInput("input", "input")))
    }
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

解决方案 #

问题出在动态插入UI后，shinyvalidate不会自动触发验证检查。只需在每次插入新UI后，手动调用iv$validate()强制触发验证即可：

library(shiny)
library(glue)
library(shinyvalidate)

ui <- fluidPage(
  sidebarPanel(
    selectInput("select", label = "select", choices = c("", "choice1", "choice2"))
  ),
  mainPanel(id = "main",
            tags$div(id = "content"))
)

server <- function(input, output) {

  # 初始化验证器
  iv <- InputValidator$new()
  iv$add_rule("input", sv_required())
  iv$enable()

  observeEvent(input$select, {
    # 先移除原有内容
    removeUI("#content")
    
    # 根据选择插入对应UI
    if(input$select %in% c("choice1", "choice2")){
      insertUI("#main", ui = tags$div(
        id = "content", 
        textInput("input", "input")))
      
      # 插入后手动触发验证
      iv$validate()
    }
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

原理说明 #

当动态移除并重新创建相同ID的输入控件时，Shiny会将其视为新的输入元素，但shinyvalidate不会自动检测到这一变化并执行验证。手动调用iv$validate()会强制验证器检查所有已添加的规则，从而在切换选项后立即显示必填字段的红色警告消息。

内容的提问来源于stack exchange，提问作者Bei