Shiny能否立即展示已完成输出，无需等待未完成输出？

要实现立即显示文本输出，5秒后显示表格DT1，最终显示表格DT2的效果，核心是让耗时的数据生成操作在异步线程执行，避免阻塞Shiny主线程的UI更新。你之前的尝试没生效，是因为阻塞式的Sys.sleep仍占用主线程，或异步配置不正确。

正确解决方案（结合promises和future） #

通过开启异步执行环境，将耗时操作放到后台，让Shiny主线程能及时更新已完成的输出。完整代码如下：

library(shiny)
library(DT)
library(promises)
library(future)

# 配置多会话异步环境，让耗时操作在后台线程执行
plan(multisession)

genDF <- function() {
  Sys.sleep(5)
  return(iris)
}

ui <- fluidPage(
  mainPanel(
    h3('渐进式输出效果：立即显示文本 → 5秒后显示DT1 → 10秒后显示DT2'),
    bsButton("Btn", "Button"),
    verbatimTextOutput("Tx"),
    splitLayout(cellWidths = c("50%", "50%"),
                DTOutput("DT1"),
                DTOutput("DT2"))
  )
)

server <- function(input, output, session) {
  # 文本输出无耗时操作，立即渲染显示
  output$Tx <- renderPrint({
    input$Btn
  })
  
  # 异步生成DT1数据，不阻塞主线程，5秒后完成并渲染
  output$DT1 <- renderDT({
    future_promise({
      genDF()
    })
  })
  
  # 异步生成DT2数据，独立于DT1执行，整体晚5秒显示
  output$DT2 <- renderDT({
    future_promise({
      genDF()
    })
  })
}

shinyApp(ui, server)

关键说明 #

1. plan(multisession)：开启多会话异步模式，让future_promise能把耗时的genDF()放到后台线程运行，Shiny主线程可以同时处理UI更新，因此文本输出会立即显示。
2. future_promise()：将耗时操作包装为Promise对象，renderDT会等待Promise完成后渲染表格，但主线程在此期间不会被阻塞，所以DT1和DT2会分别在5秒、10秒后依次显示。

进阶控制（确保DT2在DT1之后启动） #

如果需要严格保证DT2在DT1显示后再开始生成数据，可以用Promise链：

server <- function(input, output, session) {
  output$Tx <- renderPrint({
    input$Btn
  })
  
  # 先异步生成DT1数据，完成后再启动DT2的生成
  dt1_data <- future_promise({ genDF() })
  output$DT1 <- renderDT(dt1_data)
  
  dt2_data <- dt1_data %>% then(function(_) {
    future_promise({ genDF() })
  })
  output$DT2 <- renderDT(dt2_data)
}

这样DT2会在DT1完成渲染后才开始生成数据，实现DT1显示5秒后，DT2再显示的效果。

内容的提问来源于stack exchange，提问作者william-swl