创建类似于 devtools::check() 的输出诊断（颜色和加载符号）

Question

我想创建一个函数来运行一些检查并以类似的方式将诊断结果返回到终端devtools::check()。

devtools 使用颜色、多个其他符号（加载和“检查”等）。

有没有办法可以设计/编写这样的诊断程序？

Answer 1

我在源代码中找不到答案，但我猜它是 和 uft8 符号的组合crayon。但我找不到用于加载的符号，所以我使用了不同的符号。

library(crayon)

for (i in letters[1:10])
{
  cat("\u2022", "| 0 text", i, "\r")
  flush.console()

  for (j in 1:sample(2:9,1))
  {
    if (j %% 2)
      cat("\u2059", "|", j,  "text", i, "\r")
    else
      cat("\u2058", "|", j, "text", i, "\r")

    flush.console()

    Sys.sleep(0.3)
  }

  if (runif(1) < 0.66)
    cat(green("\u2713"), "|", j, "text", i, "\n")
  else
    cat(red("\u2717"), "|", j, "text", i, "\n")
}