如何避免Shiny模态框更新前显示上一次选中的内容？

在Shiny应用的表格中选择车辆时，会弹出模态框展示选中的车辆。首次选择时显示正常，但从第二次开始，模态框会先显示上一次选中的内容，再更新为新选中的内容，请问如何解决该问题？

library(shiny)
library(shinyBS)
library(DT)
library(tibble)

samplemodal <-  function(failed = FALSE) {
    modalDialog(
        size = "l",
        easyClose = T,
        style = "width:100%",
        
        title = fluidRow("Species Selected", style = "color: #7B6B59;font-weight: bold", align =
                             "center"),
        
        fluidRow(column(3, strong("Car Selected")),
                 column(
                     9, div(style = "color: #009BD2;", textOutput("car_selected"))
                 )),
        
        footer = tagList(modalButton ("Cancel"))
    )
}

data <- mtcars %>% as_tibble(rownames = "cars")


ui <-
    fluidPage(fluidRow(column(12, align = 'center', DTOutput("tbl"))))

server <- function(input, output, session) {
    rv <- reactiveValues()
    
    output$tbl <-
        renderDataTable(data, selection = "single", rownames = FALSE)
    
    output$car_selected <- renderText({
        rv$selected_car
        
    })
    
    observeEvent(input$tbl_rows_selected, {
        selected_row_index <- input$tbl_rows_selected
        if (!is.null(selected_row_index)) {
            selected_car <- data$cars[selected_row_index]
            print(selected_car)
            rv$selected_car <- selected_car
            showModal(samplemodal())
        }
    })
    
}

shinyApp(ui = ui, server = server)

这个问题的核心是模态框显示时机过早：更新响应式值rv$selected_car后立刻调用showModal，此时textOutput("car_selected")还没来得及同步新值，所以会先显示旧内容，待响应式值更新完成后才刷新。

以下是两种可靠的解决方式：

方式一：延迟显示模态框 #

让Shiny有足够时间完成UI更新后再弹出模态框，可通过invalidateLater实现：

observeEvent(input$tbl_rows_selected, {
    selected_row_index <- input$tbl_rows_selected
    if (!is.null(selected_row_index)) {
        selected_car <- data$cars[selected_row_index]
        rv$selected_car <- selected_car
        # 延迟50ms确保UI更新完成
        invalidateLater(50, session)
        showModal(samplemodal())
    }
})

方式二：直接将选中内容传入模态框（推荐） #

避免依赖全局响应式值，直接把选中的车辆名称作为参数传入模态框，初始化时就加载最新内容：

1. 修改samplemodal函数，新增car_name参数：

samplemodal <-  function(car_name, failed = FALSE) {
    modalDialog(
        size = "l",
        easyClose = T,
        style = "width:100%",
        
        title = fluidRow("Species Selected", style = "color: #7B6B59;font-weight: bold", align =
                             "center"),
        
        fluidRow(column(3, strong("Car Selected")),
                 column(
                     9, div(style = "color: #009BD2;", car_name) # 直接渲染文本，无需textOutput
                 )),
        
        footer = tagList(modalButton ("Cancel"))
    )
}

2. 修改observeEvent逻辑，直接传递选中的车辆名称：

observeEvent(input$tbl_rows_selected, {
    selected_row_index <- input$tbl_rows_selected
    if (!is.null(selected_row_index)) {
        selected_car <- data$cars[selected_row_index]
        print(selected_car)
        showModal(samplemodal(selected_car))
    }
})

同时可以删除原代码中output$car_selected和rv$selected_car相关内容，简化逻辑。这种方式更高效，不会出现内容闪烁的问题。

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