在R/Shiny中能否为renderTree添加进度条或监听渲染完成事件

方案1：结合渲染完成事件实现加载提示切换 #

shinyTree在渲染完成后会触发shinyTree:initialized前端自定义事件，你可以结合该事件实现「加载中提示」的自动展示和隐藏，实现代码如下：

• UI端代码

ui <- fluidPage(
  # 加载提示层，默认居中显示
  tags$div(
    id = "tree_loading", 
    style = "position: absolute; top: 50%; left: 50%; transform: translate(-50%, -50%); z-index: 999; font-size: 16px;",
    "渲染中，请稍候..."
  ),
  # 树容器，默认先隐藏
  tags$div(
    id = "tree_container",
    style = "display: none;",
    shinyTree("large_tree")
  ),
  # 前端监听渲染完成事件，切换展示状态
  tags$script(HTML("
    $(document).on('shinyTree:initialized', function(event, data) {
      // 匹配对应树组件的ID，避免多个树组件互相干扰
      if (data.id === 'large_tree') {
        $('#tree_loading').hide();
        $('#tree_container').show();
      }
    });
  "))
)

• 服务端代码（可选增加进度条展示数据处理进度）
  如果你的树结构数据预处理逻辑也占比较长的耗时，可以用shiny自带的withProgress包裹逻辑，展示分步进度：

server <- function(input, output, session) {
  output$large_tree <- renderTree({
    withProgress(message = '正在处理树结构数据', value = 0, {
      incProgress(0.3, detail = "正在解析原始层级数据")
      raw_tree <- your_raw_data_process_logic()
      
      incProgress(0.6, detail = "正在转换为shinyTree兼容格式")
      formatted_tree <- as.shinyTree(raw_tree)
      
      incProgress(1, detail = "数据处理完成，等待前端渲染")
      return(formatted_tree)
    })
  })
}

方案2：增量渲染优化（可选，大幅降低初始渲染耗时） #

如果你的树结构节点超过1000个，更推荐开启shinyTree的懒加载能力，只渲染当前展开层级的节点，等待用户主动展开节点时再加载对应子节点，渲染耗时可以从数分钟降低到秒级：

• UI端开启懒加载配置

shinyTree("large_tree", lazyLoad = TRUE)

• 服务端监听input$large_tree_state事件，识别用户展开的节点ID，动态返回对应子节点数据即可。

注意事项 #

• shinyTree:initialized事件为shinyTree 0.2.7及以上版本支持，如果使用旧版本可以先升级到CRAN最新版
• 如果页面有自定义悬浮层样式，可适当调高加载提示的z-index值，保证提示显示在最上层

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