如何无需for循环用cli进度条展示数据清洗步骤进度

1. 如何用进度条展示下载包的耗时？ #

不需要先下载再模拟进度。可以直接在下载过程中实时更新cli进度条：

• 如果知道待下载文件的总大小，初始化进度条时将total设为文件总字节数，通过下载回调函数跟踪已下载字节数，调用cli_progress_update(inc = 已下载增量)来更新进度。
• 如果不知道文件大小，可初始化无确定进度的进度条（不设置total参数），下载过程中定期调用cli_progress_update()展示动态加载状态，完成后调用cli_progress_done()结束。

示例（base R下载文件结合cli进度条）：

library(cli)
library(httr)

download_with_progress <- function(url, destfile) {
  # 尝试获取文件总大小（部分服务器不支持该字段）
  file_size <- as.numeric(HEAD(url)$headers$`content-length`)
  cli_progress_bar("下载文件", total = file_size, clear = FALSE)
  
  # 自定义进度回调函数
  progress_callback <- function(down, up) {
    cli_progress_update(inc = down)
    TRUE
  }
  
  download.file(url, destfile, quiet = TRUE, mode = "wb", 
                progress = progress_callback)
  cli_progress_done()
}

# 调用示例
download_with_progress("https://example.com/large-file.zip", "local-file.zip")

2. 无for循环的多步数据清洗进度条实现 #

你的示例脚本已经可以实现需求，只需补充显式的进度条收尾调用，确保每个步骤完成后正确更新进度即可。cli_progress_update()默认每次前进1个单位，配合初始化时设置的total=3，刚好对应3个清洗步骤，进度条会按步骤逐步更新，效果和for循环示例一致。

修正后的完整代码：

library(tidyverse)
library(cli)

prepare_data <- function(){
  cli_progress_bar("Cleaning data", total = 3, clear = FALSE)
  
  # 步骤1：统计cut分组数量
  dat1 <- diamonds |> count(cut)
  cli_progress_update()
  
  # 步骤2：计算每组平均价格
  dat2 <- diamonds |> 
    group_by(cut) |> 
    summarise(mean_price = mean(price))
  cli_progress_update()
  
  # 步骤3：合并数据
  dat3 <- left_join(dat1, dat2, by = join_by(cut))
  cli_progress_update()
  
  cli_progress_done() # 显式结束进度条，确保状态收尾
  return(dat3)
}

prepare_data()

关键说明： #

• 初始化进度条时total=3，与清洗步骤数量对应；
• 每个步骤执行完成后调用cli_progress_update()，进度条自动前进1/3的进度；
• 最后调用cli_progress_done()可避免进度条残留，确保状态正确收尾。

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