我正在使用 testthat 包来运行测试，到目前为止我对它非常满意。目前，我正在使用 test_file() 函数来运行所有测试并将其结果捕获为数据帧，然后进行一些额外的分析。
但是，我想做的一件事是从数据帧本身的故障中捕获错误消息。我真的很喜欢某些消息的描述性，并且在下游提供额外的信息会很棒。下面是我在想什么的一个例子。我想将“平均绝对差：1”消息捕获为df.
> df <- test_file(f)
1
1. Failure(@testthat.R#4): insert me here --------------------------------------
1 not equal to expected
Mean absolute difference: 1
> df
file context test nb failed error user system real
1 testthat.R insert me here 1 1 FALSE 0.004 0 0.004
消息正在生成，在其中一个 Reporter 类中拦截这些消息似乎并不太费力，但是在浏览文档和源代码之后，我认为该功能不是内置的。
那么，是否可以使用当前版本的 testthat 来做到这一点？
如果没有，启用此功能需要做什么？我愿意为该项目做出贡献，但我不确定从哪里开始，因为我不太习惯 R 的 OOP。
感谢您的输入。