如何将实时进度数据传递到Flexdashboard中的块？

library(shiny)
library(flexdashboard)

ui <- fluidPage(
  # 在这里定义你的Flexdashboard布局
)

server <- function(input, output) {
  # 在这里处理数据和实时更新
}

shinyApp(ui, server)

server <- function(input, output) {
  # 定义一个反应式值，用于存储实时进度数据
  progress <- reactiveVal(0)

  # 模拟实时更新进度数据的过程
  observe({
    for (i in 1:10) {
      # 更新进度数据
      progress(i * 10)

      # 等待一段时间，模拟实时更新
      Sys.sleep(1)
    }
  })

  # 在UI中使用进度数据
  output$progress_block <- renderValueBox({
    valueBox(
      value = progress(),
      subtitle = "Progress",
      icon = icon("chart-line")
    )
  })
}