如何在R shiny中更新for循环中的反应输出

library(shiny)

ui <- fluidPage(
  titlePanel("更新for循环中的反应输出"),
  sidebarLayout(
    sidebarPanel(
      numericInput("num", "输入一个数字:", value = 1),
      actionButton("start", "开始计算")
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)

server <- function(input, output) {
  result <- reactiveVal()  # 创建一个反应性变量
  
  observeEvent(input$start, {
    result(NULL)  # 清空之前的结果
    
    for (i in 1:input$num) {
      # 执行一些计算或操作
      # ...
      
      # 更新反应输出
      result(paste("当前循环次数:", i))
      
      Sys.sleep(1)  # 模拟计算过程中的延迟
    }
  })
  
  output$result <- renderPrint({
    result()  # 显示反应输出
  })
}

shinyApp(ui, server)