Shiny应用运行.bat批处理时实现进度条实时动态更新

• 现有代码的进度条卡滞现象，核心由三个逻辑问题导致：
  • 阻塞式进程调用的逻辑错误：原代码中shell("mybatchfile.bat,wait=TRUE")属于强阻塞调用，R进程会完全挂起在这一行，直到.bat文件执行完毕才会继续运行后续的进度更新代码，完全错过.bat运行的全流程窗口。
  • 代码参数写法错误：wait=TRUE是R端shell函数的命名参数，原代码将其拼入bat命令的字符串中，导致参数根本没有被正确传递，实际运行的命令和预期不一致。
  • 进度循环的设计缺陷：shell带阻塞等待参数时返回的是.bat的进程退出码，属于单值对象，length(bat)永远为1，后续for循环仅会执行1次，天生不具备逐次更新进度条的能力。
• 你看到进度条停在10%左右的状态，是withProgress组件初始化完成后的默认展示值——因为后续的进度更新代码要等.bat完全跑完才会执行，所以进度条在.bat运行全程都不会变化，等.bat结束后，循环快速执行单次进度更新，瞬间跳到100%。

核心思路是拆分进程启动和进度读取的逻辑，不再等.bat完全跑完再读取结果，而是在.bat运行的全程实时轮询可读取的状态信息，逐次更新进度条。
具体实现要点：

• 采用非阻塞方式启动.bat进程，启动时将.bat的标准输出/错误输出重定向到本地临时日志文件，让R不需要直接等待.bat结束，就能通过日志文件读取运行状态
• 用轮询循环代替原有的“拿到全部结果再更新”的逻辑，每隔1-2秒读取一次日志文件内容，根据已输出的运行日志行数据、明确的进度标记（如“已完成计算”这类文本）计算当前进度比例，调用incProgress逐次更新进度条
• 增加进程状态检测逻辑，确认.bat进程完全退出后，再将进度条设置为100%，避免提前标记完成

library(shiny)
library(shinyWidgets)

ui <- fluidPage(titlePanel(h1("Progress Bar Test", align="center")),
                mainPanel(
                  sidebarPanel(
                    actionButton("buttonId", "Create exe file")
                  )
                )
)

server <- function(input, output, session) {
  
  observeEvent(input$buttonId, {
    # 生成临时日志文件，用于存储bat的运行输出
    bat_log_file <- tempfile(pattern = "bat_run_", fileext = ".log")
    # 非阻塞启动bat，将所有输出重定向到临时日志
    bat_cmd <- sprintf(
      'cmd /c "mybatchfile.bat > %s 2>&1"',
      shQuote(bat_log_file)
    )
    shell(bat_cmd, wait = FALSE, invisible = TRUE)
    
    withProgress(message = 'Creating executable',
                 detail = 'It takes about 30 seconds per year...', {
      # 轮询循环，实时更新进度
      progress_ratio <- 0
      max_progress <- 0.95 # 最多涨到95%，等bat跑完再拉满
      repeat {
        Sys.sleep(1)
        # 检查日志文件是否存在、读取已有的内容行数
        if (file.exists(bat_log_file)) {
          log_lines <- readLines(bat_log_file, warn = FALSE)
          current_line_count <- length(log_lines)
          # 可根据实际bat输出的日志总行数，调整进度估算的分母值
          estimated_progress <- min(current_line_count / 20, max_progress)
          if (estimated_progress > progress_ratio) {
            incProgress(amount = estimated_progress - progress_ratio,
                        detail = sprintf("已运行 %d 步...", current_line_count))
            progress_ratio <- estimated_progress
          }
        }
        # 检测bat进程是否已经退出：查询系统中的cmd进程状态
        task_result <- system('tasklist /FI "IMAGENAME eq cmd.exe"', intern = TRUE)
        # 如果没有相关cmd进程在运行，说明bat已经执行完成
        if (!any(grepl("cmd.exe", task_result))) {
          break
        }
      }
      # bat确认跑完，直接拉满进度
      incProgress(amount = 1 - progress_ratio, detail = "执行完成")
      # 清理临时日志文件
      file.remove(bat_log_file)
    })
  })
}

shinyApp(ui = ui, server = server)

如果无法获取.bat的输出日志、也没有可观测的中间运行文件，可以采用时间估算的渐进式更新逻辑：

• 提前统计同场景下.bat的平均运行总时长（比如30秒）
• 在启动.bat之后的轮询循环里，每1秒把进度提高 0.95 / 总时长 的比例，最多涨到95%
• 等检测到.bat进程退出后，再将进度拉到100%
  这种方式虽然不是基于真实运行步骤的精确进度，但可以彻底解决进度条卡在10%不动的问题，用户体验会流畅很多。

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