Shiny应用执行大型计算任务时冻结无响应如何解决

Shiny默认运行在单R进程上，你编写的同步计算逻辑会占满整个进程的运行资源，导致所有用户交互、页面渲染逻辑都被阻塞，直到计算任务执行完成。

• 方案1：使用promises + future组合实现异步计算，是Shiny官方首推的阻塞问题解决方案
  你只需要对现有代码做少量调整即可，无需重构整个技术栈：
  1. 先安装依赖包：install.packages(c("promises", "future"))
  2. 在应用代码开头添加异步运行配置
  3. 把大计算逻辑封装到future中后台执行，不占用主进程资源
     对应调整后的代码示例：

  library(shiny)
  library(promises)
  library(future)
  
  # 配置多会话异步模式，支持后台同时运行多个任务
  plan(multisession)
  
  ui <- fluidPage(
    actionButton("do", "启动聚合计算"),
    verbatimTextOutput("calc_tip"),
    # 其他你的页面组件、标签页等
  )
  
  server <- function(input, output, session) {
    # 存储计算结果的响应式变量
    calc_result <- reactiveVal(NULL)
    
    observeEvent(input$do, {
      output$calc_tip <- renderPrint("计算正在后台运行，可正常操作其他功能")
      # 把大计算丢到后台进程执行
      future({
        # 注意如果用到input里的参数，要提前传到future内部，避免作用域问题
        input_tables_local <- input_tables
        mybigcalculation(input_tables_local)
      }) %...>% 
      # 计算完成后的回调逻辑
      then(function(res) {
        calc_result(res)
        output$calc_tip <- renderPrint("表格聚合计算完成")
        # 后续你要渲染结果表格、下载结果的逻辑写在这里即可
      }) %...!% 
      # 异常捕获逻辑
      catch(function(err) {
        output$calc_tip <- renderPrint(paste0("计算出错：", err$message))
      })
    })
  }
  
  shinyApp(ui, server)
  

• 方案2：超长时间运行任务可搭配callr包实现独立进程运行
  如果你的计算任务需要运行数分钟甚至更久，可以用callr::r_bg()单独启动一个独立的R进程运行计算，定时轮询任务状态即可，完全不会影响主应用的运行。
• 方案3：任务可拆分场景下分块执行
  如果你的聚合计算逻辑可以拆分成多个小步骤，你可以在每个步骤之间让出进程资源执行其他交互逻辑，不过该方案优化效果不如异步方案彻底。

上述方案已经可以覆盖绝大多数Shiny应用的大计算阻塞场景，你完全不需要切换到Plumber+React的技术栈，只有当你需要支持超高并发访问、前后端完全解耦部署的场景下，才需要考虑后者的方案。

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