GNU Parallel能否显示所调用RScript的自带进度条并管理多组进度？

问题背景 #

你现有自带进度条的R脚本myscript.R代码如下：

pBar <- txtProgressBar(style = 1)
L <- 10L

for (m1 in seq_len(L)) {
  Sys.sleep(0.5)
  setTxtProgressBar(pb = pBar,
                    value = m1 / L)
}

你常用的调用命令为：

parallel --jobs 5 --progress "RScript ~/myrscript.R {#}" ::: `seq 20`

需求为并行调用时可以看到每个子任务的自带进度条，支持进度条替换或者逐行打印两种展示形式。

结论说明 #

默认状态下直接调用无法正常展示每个子任务的独立进度条，核心原因有两点：

• R的txtProgressBar依赖终端光标回退能力实现同位置更新进度，多个并行任务同时输出会抢占终端资源，导致进度条内容重叠混乱
• 你命令中使用的--progress参数仅展示GNU Parallel的全局任务进度，不会接管、归并每个子任务的自定义进度输出

可行解决方案 #

方案1：子任务进度条逐行打印 #

首先修改R脚本，为进度条添加任务标识，每次进度更新后换行避免光标回退导致的内容重叠：

# 接收GNU Parallel传入的任务编号
task_id <- commandArgs(trailingOnly = TRUE)[1]
# 进度条输出到标准输出流
pBar <- txtProgressBar(style = 1, file = stdout())
L <- 10L

for (m1 in seq_len(L)) {
  Sys.sleep(0.5)
  setTxtProgressBar(pb = pBar, value = m1 / L)
  # 进度未完成时换行标注任务编号
  if (m1 < L) cat(sprintf("\n任务%s进度：", task_id))
}
cat(sprintf("\n任务%s执行完成\n", task_id))

调整调用命令，添加--line-buffer参数保证单条输出内容完整不被拆分：

parallel --jobs 5 --line-buffer "RScript ~/myrscript.R {#}" ::: `seq 20`

该方案下所有子任务的进度条会逐行打印，无内容重叠，可回溯所有任务的进度历史。

方案2：实时替换当前运行任务的进度条 #

不需要修改R脚本，直接调整调用命令，添加--group和--tail参数，让GNU Parallel仅展示当前正在运行的子任务输出，自动覆盖上一批任务的进度条内容：

parallel --jobs 5 --group --tail "RScript ~/myrscript.R {#}" ::: `seq 20`

该方案下仅能看到当前运行的5个任务的进度条，已完成的任务输出会被覆盖，适合仅需要关注实时运行进度的场景。

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