如何将 CLI 消息与 purrr 系列功能结合起来

Question

我想知道如何使用

purrr

函数将此示例代码转换为

walk()

样式？

library(cli)

n <- 10

cli_alert_info("About to start downloads of {n} file{?s}")

i <- 0

cli_progress_step("Got {i}/{n} {qty(i)}file{?s}.")

for (i in seq_len(n)) {
  
  Sys.sleep(0.5)
  
  cli_progress_update()
  
}

非常感谢任何意见和建议。

Answer 1

您可以使用

.progress

参数。有关更多详细信息，请参阅 purrr 中的进度条。

library(cli)

n <- 10
cli_alert_info("About to start downloads of {n} file{?s}")

purrr::walk(seq_len(n), ~ {
  Sys.sleep(0.5)
}, .progress = list(type = "iterator",
                    format = "Got {pb_current}/{pb_total} {qty(pb_current)}file{?s}.",
                    clear = FALSE))

# ℹ About to start downloads of 10 files
# Got 10/10 files.