为何Shiny中一个plotOutput会阻塞完全独立的第二个plotOutput？

核心原因 #

你遇到的现象是由Shiny的默认运行机制导致的：

• Shiny服务器默认采用单线程处理模型，同一时间只能执行一个R代码块
• 应用启动时，所有输出组件的渲染请求会被同时触发，服务器会按代码中定义输出的顺序串行处理这些请求
• 由于output$plot里的Sys.sleep(2)阻塞了服务器线程2秒，output$plot2的渲染必须等第一个任务完成后才能开始，最终两个图表会在2秒后同时显示

解决方法：控制渲染顺序/优先级 #

如果想让渲染快的图表先显示，可以通过以下两种方式实现：

1. 调整渲染优先级

给renderPlot添加priority参数，数值越高优先级越高，服务器会优先处理高优先级的输出：

server <- function(input, output) {
  output$plot <- renderPlot({
    Sys.sleep(2)
    ggplot(iris) +
      geom_point(aes(Sepal.Length, Sepal.Width))
  }, priority = 1) # 低优先级
  
  output$plot2 <- renderPlot({
    ggplot(iris) +
      geom_point(aes(Sepal.Length, Sepal.Width))
  }, priority = 10) # 高优先级
}

启动后，plot2会先完成渲染并显示，2秒后plot再显示。

2. 手动控制渲染触发时机

用reactive值来控制输出的渲染时机，比如让plot的渲染在plot2完成后再触发：

server <- function(input, output) {
  plot2_rendered <- reactiveVal(FALSE)
  
  output$plot2 <- renderPlot({
    p <- ggplot(iris) + geom_point(aes(Sepal.Length, Sepal.Width))
    plot2_rendered(TRUE)
    p
  })
  
  output$plot <- renderPlot({
    req(plot2_rendered()) # 等待plot2渲染完成
    Sys.sleep(2)
    ggplot(iris) + geom_point(aes(Sepal.Length, Sepal.Width))
  })
}

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