如何使R中的检查函数具有与devtools::check相同的输出样式

Question

我想创建一个函数来检查由我的一个函数输出的复杂列表的不同方面。这是为了帮助参数提升此函数；有许多参数影响输出，调整参数以获得最佳拟合的输出对用户来说意味着大量的尝试和错误。为了方便，我想做一个“检查”功能，提供不同的量化和逻辑测试的输出。理想情况下，我希望它具有与devtools::check()或devtools::build()给出的输出相同的样式，如下所示：

​

​

我试图进入devtools::check()或devtools::build()函数的内部，但找不到它们用来产生这种输出的是什么。有没有可能用它来完成我描述的任务？

Answer 1

尝试以这种方式在函数中使用cat来映射和显示函数的更新：

f<-function()
{
   cat("checking for file\n")
   cat("preparing\n")
}

输出：

f()
    checking for file
    preparing

可以使用package colorout添加不同的颜色和调色板。

这是devtools包中使用的模式：

cat_rule(left = "Building", right = pkg$package, col = "cyan")