如何在R Shiny中用progressSweetAlert监控函数迭代进度？

方案1：修改自定义函数添加进度回调（推荐） #

直接给myLooper添加一个回调参数，让它在每次迭代时主动传递当前进度值，这种方式最可靠，也符合代码设计的最佳实践。

修改后的myLooper函数：

myLooper <- function(x, progress_callback = NULL){
    total_iter <- 10
    for(i in 1:total_iter){
        y <- x + 1
        Sys.sleep(.1)
        printf("%d\n", i)
        # 若传入回调函数，则传递当前迭代次数和总次数
        if(!is.null(progress_callback)){
            progress_callback(current = i, total = total_iter)
        }
    }
}

对应的Shiny Server代码：

server <- function(input, output, session) {
  observeEvent(input$go, {
    progressSweetAlert(
      session = session, id = "myprogress",
      title = "Work in progress",
      display_pct = TRUE, value = 0
    )
    
    # 调用myLooper时传入进度回调，实时更新进度条
    myLooper(2, progress_callback = function(current, total) {
      # 计算当前进度百分比：(当前次数/总次数)*100
      updateProgressBar(session = session, id = "myprogress", value = (current/total)*100)
    })
    
    closeSweetAlert(session = session)
  })
}

方案2：捕获控制台输出（无法修改原函数时的权宜之计） #

如果不能修改myLooper的源代码，可以通过捕获它打印到控制台的内容，解析出迭代次数后更新进度条。这种方法依赖函数输出的格式，若输出格式变化会失效。

对应的Shiny Server代码：

server <- function(input, output, session) {
  observeEvent(input$go, {
    progressSweetAlert(
      session = session, id = "myprogress",
      title = "Work in progress",
      display_pct = TRUE, value = 0
    )
    
    # 创建临时连接捕获控制台输出
    output_buffer <- character(0)
    con <- textConnection("output_buffer", "w")
    sink(con)
    
    # 运行自定义函数
    myLooper(2)
    
    # 恢复正常输出并关闭连接
    sink()
    close(con)
    
    # 解析输出内容，提取迭代次数
    iter_values <- as.integer(gsub("\\n", "", output_buffer))
    total_iter <- length(iter_values)
    
    # 逐个更新进度条
    for(val in iter_values){
      updateProgressBar(session = session, id = "myprogress", value = (val/total_iter)*100)
      Sys.sleep(0.1) # 匹配原函数的迭代延迟，避免进度条瞬间完成
    }
    
    closeSweetAlert(session = session)
  })
}

注意事项 #

• 方案1是优先选择，因为它直接在函数内部传递进度数据，不需要依赖输出解析，稳定性更高。
• 两种方案都要确保updateProgressBar的session参数正确传递，否则无法在前端更新进度条。
• 进度百分比的计算要和迭代总次数对应，确保最终进度能达到100%。

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