R 如何自定义发送到控制台的错误消息？

我正在使用knitr为组织的每个部门生成一份报告。每个报表都包含几个表，但对于某些部门，其中一个或多个表缺少要显示的数据。因此，当在Rmd文档中使用R块并指定results='as-is'来评估我的表创建函数（例如，来自gMisc包的print.xtable或htmlTable）时，我会在输出文档中得到一条看起来不愉快的错误消息，该消息以真正的R方式非常明确地指出了哪里出了问题。当然，高级信息是此函数没有输入

那么，当knitr“按原样”评估我的结果时，我如何定制打印到控制台的内容，以及打印到输出文档的内容

我知道我可以用tryfunction包装我的表创建函数，silent=TRUE来完全消除错误消息，但我更喜欢有意义的消息，比如你们这些白痴忘记发送数据了！或者，更具外交意味的是，没有数据可以提供。而不是缺少

---

谢谢。

我第一次发布这个问题时错过了这个链接，但下面的帖子提出了一个非常类似的问题，由@Yihui回答：

---

此示例显示来自try-catch块的自定义错误消息。