如何检测Tab面板下的Plot是否已可见？R Shiny可视化求助

针对你遇到的incProcess显示完成但绘图仍未加载的问题，以下几种方法可以准确检测可视化是否真正渲染完成，而非仅代码执行完毕：

1. 用shinycssloaders自动管理加载状态 #

这是最省心的方案，该包会自动为输出元素添加加载动画，仅当可视化完全渲染完成后才会替换为实际内容，无需手动判断状态，适配所有数据大小场景。

代码示例： #

# 首次使用先安装依赖包
# install.packages("shinycssloaders")

library(shiny)
library(shinycssloaders)

ui <- fluidPage(
  tabsetPanel(
    tabPanel("箱线图", withSpinner(plotOutput("boxPlot"))),
    tabPanel("柱状图", withSpinner(plotOutput("barPlot"))),
    tabPanel("Bean Plot", withSpinner(plotOutput("beanPlot")))
  )
)

server <- function(input, output) {
  output$boxPlot <- renderPlot({
    # 替换为你的实际耗时绘图代码
    Sys.sleep(2)
    boxplot(rnorm(1000000))
  })
  
  output$barPlot <- renderPlot({
    Sys.sleep(1.5)
    barplot(table(sample(1:10, 100000, replace = TRUE)))
  })
  
  output$beanPlot <- renderPlot({
    Sys.sleep(2.5)
    # library(beanplot)
    # beanplot(rnorm(500000))
    plot(rnorm(500000)) # 示例占位
  })
}

shinyApp(ui, server)

2. 自定义JS回调监听渲染完成事件 #

如果需要灵活自定义后续逻辑（比如更新进度条、触发额外操作），可以通过前端JS监听Shiny的输出更新事件，再通知后端。

步骤： #

1. 在UI中添加JS代码，监听shiny:value事件（该事件在输出元素完全渲染后触发）：

ui <- fluidPage(
  tabsetPanel(
    tabPanel("箱线图", plotOutput("boxPlot"))
  ),
  tags$script('
    $(document).on("shiny:value", function(event) {
      // 仅监听目标plot的更新
      if (event.target.id === "boxPlot") {
        // 向Shiny后端发送渲染完成信号
        Shiny.setInputValue("boxPlotRendered", true);
      }
    });
  ')
)

2. 在Server中监听信号并执行操作：

server <- function(input, output, session) {
  output$boxPlot <- renderPlot({
    # 你的耗时绘图代码
    boxplot(...)
  })
  
  observeEvent(input$boxPlotRendered, {
    # 更新进度条或隐藏加载提示
    incProgress(1, detail = "箱线图已加载完成")
    # 执行其他自定义逻辑
  })
}

3. 给plotOutput添加直接回调 #

更简洁的方式是直接在plotOutput中指定callback参数，当plot渲染完成时触发JS函数：

ui <- fluidPage(
  tabsetPanel(
    tabPanel("箱线图", 
             plotOutput("boxPlot", 
                        callback = 'function() { Shiny.setInputValue("boxPlotDone", Date.now()); }')
             )
  )
)

后端通过observeEvent(input$boxPlotDone, {...})响应渲染完成事件即可。

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