在R/Shiny中，有没有为renderTree创建进度条的方法

library(shiny)

ui <- fluidPage(
  actionButton("startButton", "Start"),
  verbatimTextOutput("progressOutput")
)

server <- function(input, output) {
  observeEvent(input$startButton, {
    withProgress(message = 'Processing', detail = 'Please wait...', value = 0, {
      for (i in 1:10) {
        Sys.sleep(0.5)  # 模拟耗时操作
        incProgress(1/10)  # 更新进度条
      }
    })
  })

  output$progressOutput <- renderPrint({
    input$startButton  # 显示按钮点击次数
  })
}

shinyApp(ui, server)