如何在依赖项就绪时动态加载Shiny输出？

你的问题本质是Shiny默认的单线程反应式执行机制导致的：当输入值变化时，所有依赖该输入的反应式任务会被依次执行，那些包含延迟计算（比如你的Sys.sleep）的任务会阻塞主线程，使得本应快速渲染的plot1也被迫等待。要实现plot1立即加载、plot2等待计算完成再显示的效果，我们可以借助future和promises包实现异步计算，让慢任务在后台运行，不阻塞主线程。

修改后的完整代码 #

library("ggplot2")
library("shiny")
library("shinycssloaders")
library("future")
library("promises")

# 设置异步执行计划，启用多会话
plan(multisession)

ui <- fluidPage(
  sliderInput("slider1", label = "Slider 1", min = 0, max = 100, step = 1, value = c(0,100)),
  withSpinner(plotOutput("plot1")),
  withSpinner(plotOutput("plot2"))
)

server <- function(input, output, session) {
  # plot1直接使用输入，主线程快速渲染
  output$plot1 <- renderPlot({
    ggplot() +
      geom_point(aes(
        x = runif(n = 100, min = 0, max = 100),
        y = runif(
          n = 100,
          min = input$slider1[1],
          max = input$slider1[2]
        )
      ))
  })
  
  # 将慢计算放到后台异步执行
  plot2_min <- reactive({
    future_promise({
      Sys.sleep(2)
      input$slider1[1]
    })
  })
  
  plot2_max <- reactive({
    future_promise({
      Sys.sleep(2)
      input$slider1[2]
    })
  })
  
  # 等待异步计算完成后再渲染plot2
  output$plot2 <- renderPlot({
    plot2_min() %...>% { min_val } %>%
      bind(plot2_max() %...>% { max_val }) %>%
      then(function(values) {
        ggplot() +
          geom_point(aes(
            x = runif(n = 100, min = 0, max = 100),
            y = runif(
              n = 100,
              min = values[[1]],
              max = values[[2]]
            )
          ))
      })
  })
}

shinyApp(ui, server)

关键改动说明 #

• 异步环境配置：通过plan(multisession)开启多会话异步模式，让慢计算任务在后台独立运行，不占用主线程。
• 异步反应式对象：用future_promise()包裹带有Sys.sleep的计算逻辑，将这些任务放到后台，主线程可以继续处理plot1的渲染。
• Promise链式处理：在renderPlot中使用%...>%（Promise管道操作符）等待异步计算完成，拿到结果后再生成并返回plot2的图形。

这样调整后，当你拖动滑块时，plot1会立即开始渲染并显示，而plot2的加载动画会保持到后台计算完成，之后才会显示图形。

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