一旦进程以闪亮的方式完成，在调用者中捕获数据

如何解决一旦进程以闪亮的方式完成，在调用者中捕获数据

我想知道在过程完成后检索数据的正确方法是什么，然后在绘图中使用这些数据，例如？理想情况下，我想将结果保存在 reactiveValues() 或 reactive() 中。这可能吗？

代表：

library(shiny)
library(callr)
library(ggplot2)

ui <- fluidPage(
  plotOutput("plot")
)

server <- function(input,output,session) {
  
  slow_function <- callr::r_bg(
    func = function() {
      Sys.sleep(2)
      mtcars
    },supervise = TRUE
  )
  
  output$plot <- renderPlot({
    req(!slow_function$is_alive())
    
    ggplot(slow_function$get_result(),aes(mpg,hp)) +
      geom_point()
  })
}

shinyApp(ui,server)