R Shiny shinyalert回调不更新变量及链式弹窗uiOutput异常问题

问题成因 #

• 输入值缓存：Shiny会话中的input变量一旦生成就不会随弹窗关闭自动重置。你每次弹出的弹窗都使用固定id的输入控件（name、num），上次输入的值会一直保留在会话中。后续弹窗默认显示的Jack、NA只是控件的前端默认值，只要用户没有手动修改，后台input取到的还是上次的有效值，就会出现你遇到的“留空也触发链式弹窗、显示上次内容”的问题。
• 链式弹窗uiOutput失效：Shiny的output渲染和DOM元素唯一绑定，第一个弹窗已经渲染过uiOutput("test")后，Shiny不会主动将该output重渲染到新弹窗的同名uiOutput节点上，加上shinyalert的弹窗属于动态插入的DOM，默认不会触发output的重渲染逻辑，自然无法显示内容。

修复方案 #

基于shinyalert的实现 #

你只需要在每次弹出新弹窗之前，主动更新对应输入控件的值重置为默认值，同时链式弹窗直接使用当前输入值生成静态内容即可，修正后代码如下：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert(),
  actionButton("run", "Run", class = "btn-success")
)
server <- function(input, output, session) {
  
  functest = function(num) {
    ans = is.na(num)
    list(ans = ans)
  }
  
  observeEvent(input$run,{
    # 弹窗弹出前主动重置输入值，清除历史缓存
    updateTextInput(session, "name", value = "Jack")
    updateNumericInput(session, "num", value = NA)
    
    shinyalert(
      title = "What is your name?",
      html = TRUE,
      text = tagList(
        textInput("name", "What's your name?", "Jack"),
        numericInput("num", "Number Here", value = NA)
      ),
      callbackR = function(x) { 
        if(x != FALSE & !is.na(input$num)) {
          # 直接读取当前输入值生成静态内容，不要复用uiOutput
          shinyalert(
            html = TRUE,
            text = tagList(
              div(paste0(input$name, "'s favorite color is Black")),
              div(paste0("Is input$num NA? ", functest(input$num)$ans))
            ),
            showCancelButton = TRUE
          )
        } else {
          closeAlert()
        }
      },
      closeOnEsc = TRUE,
      showConfirmButton = TRUE,
      closeOnClickOutside = TRUE,
      showCancelButton = TRUE
    )
  })
}
shinyApp(ui = ui, server = server)

原生模态框替代方案 #

如果你希望更稳定的交互逻辑，可以使用Shiny原生的modalDialog实现，它的输入绑定、output渲染逻辑和普通页面完全一致，不需要额外处理动态DOM的兼容问题。

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