R Shiny中future_promise搭配zeallot报v1未找到如何解决

报错来自两个核心逻辑错误：

1. 作用域隔离：future_promise运行在独立的后台R进程中，在其内部用zeallot::%<-%赋值生成的v1、v2仅存在于后台进程的临时环境里，不会传递到主进程的promise管道执行环境，下游代码自然找不到v1对象
2. 返回值错误：future_promise只会把内部表达式的返回值顺着promise管道向下传递，%<-%多变量赋值操作本身不会返回expensive_calc()生成的结果列表，下游管道根本拿不到异步计算的产出。

不要在future_promise内部做跨环境解构赋值，直接让future块返回纯计算结果，在下游管道内完成取值处理即可。另外不要在observeEvent内部嵌套重写output绑定，这类写法在高并发公开应用中会引发严重内存泄漏，建议把响应式计算和输出渲染拆开实现。

修正后的app.R代码如下：

library("zeallot")
library("shiny")
library("primes")
library("future")
library("promises")
library("tidyverse")

plan(multisession)
source("/home/law/whatbank_multicore_test/src/expensive_calc.R")

ui <- fluidPage(
  actionButton("do", "Do Expensive Calc"),
  textOutput("text")
)

server <- function(input, output, session) {
  # 封装按钮触发的异步计算响应式对象
  calc_result <- eventReactive(input$do, {
    future_promise({
      # future块仅做纯计算，直接返回结果
      expensive_calc()
    }, seed = TRUE)
  })
  
  output$text <- renderText({
    req(calc_result())
    calc_result() %...>% 
      {
        # 管道内通过.获取上一步返回的计算结果，再做解构
        c(v1, v2) %<-% .
        tmp <- unlist(v1)
        # 可替换为实际业务逻辑，示例返回计算统计结果
        paste("计算完成，共找到", length(tmp), "组Ruth-Aaron数对，校验值v2为", v2)
      }
  })
}

shinyApp(ui, server)

expensive_calc.R无需修改，保持原有逻辑即可正常运行。

• 所有跨进程/跨环境的赋值操作不要放在future_promise内部执行，future块仅负责无副作用的纯计算、返回结果，所有结果处理逻辑统一放在promise管道下游实现
• 不要在observe/observeEvent内部嵌套定义render*函数、重写output绑定，每次触发事件重复生成输出绑定会造成内存持续泄漏
• %...>%管道会默认将上一步的返回值作为参数传入下游匿名函数，管道块内可通过.直接获取promise决议完成的计算结果，无需额外做跨环境传值

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