使用future_promise时Shiny主会话仍被阻塞的问题排查

1. 异步执行环境未正确配置 #

默认情况下future使用sequential后端，本质还是同步执行，会阻塞主UI线程。必须指定多进程/多会话后端才能真正实现异步：

library(future)
library(promises)
# 启动多会话后端，让异步任务在独立进程运行
plan(multisession)

2. 模态框触发逻辑绑定了异步绘图的完成事件 #

如果把模态框的触发逻辑放在绘图的promise链中，就必须等图表渲染完成才会响应点击。正确的做法是用ggiraph的前端点击事件直接触发模态框，不依赖后端异步流程：

• 绘图时给交互点绑定前端事件：

ggiraph(
  code = print(
    ggplot(student_data, aes(x = score, y = progress)) +
      geom_point_interactive(
        aes(onclick = "Shiny.setInputValue('point_clicked', JSON.stringify({id: this.id, info: this.info}));")
      )
  )
)

• 提前在UI定义模态框，用独立的观察者响应点击：

observeEvent(input$point_clicked, {
  click_data <- fromJSON(input$point_clicked)
  showModal(
    modalDialog(
      title = paste("学生详情：", click_data$id),
      paste("更多信息：", click_data$info),
      easyClose = TRUE
    )
  )
})

3. Firestore数据查询未纳入异步流程 #

如果数据查询是同步操作，哪怕绘图异步，查询过程依然会阻塞UI。要把数据获取也包裹在future中：

selected_student_data <- eventReactive(input$student_id, {
  future({
    # Firestore查询逻辑，比如：
    firestore_collection_get(paste("students/", input$student_id, sep = ""))
  })
})

4. 输出渲染未正确处理promise #

确保renderGgiraph直接接收promise对象，让Shiny在后台处理异步任务，不阻塞UI：

output$student_interactive_plot <- renderGgiraph({
  selected_student_data() %...>% {
    data <- .
    # 生成交互式图表
    p <- ggplot(data, aes(x = ..., y = ...)) + geom_point_interactive(...)
    ggiraph(code = print(p))
  } %...!% {
    # 错误处理
    ggiraph(code = print(ggplot() + annotate("text", x=1, y=1, label="数据加载失败")))
  }
})

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