如何在RMarkdown渲染时仅在控制台显示警告而不输出到文档？

下面提供几种可行的实现方式，满足「警告不显示在生成文档中，但在控制台输出」的需求：

方法一：全局自定义警告处理函数 #

在文档的setup代码块中设置全局警告捕获规则，将警告定向到控制台同时屏蔽文档输出：

```{r setup, include=FALSE}
options(warning.expression = {
  # 把警告内容打印到控制台（标准错误流）
  cat(paste0("警告: ", conditionMessage(last.warning), "\n"), file = stderr())
  # 阻止警告被渲染到文档中
  invokeRestart("muffleWarning")
})

这个设置会作用于整个文档的所有代码块，所有警告都会只出现在控制台，不会进入最终生成的文档。

## 方法二：单个代码块手动控制
如果只需要针对特定代码块处理，可在代码块中关闭文档警告输出，同时手动将提示信息打印到控制台：

```r
```{r param-check, warning=FALSE}
# 模拟参数越界场景
input_param <- 120
# 参数校验与重置
if (input_param > 100) {
  input_param <- 100
  # 输出警告到控制台
  cat("警告: 参数超出允许范围，已自动重置为默认值100\n", file = stderr())
}
# 后续业务代码
print(input_param)

这里通过`warning=FALSE`关闭代码块的文档警告输出，再用`cat(..., file = stderr())`将自定义提示输出到控制台，精准控制单个代码块的行为。

## 方法三：利用knitr钩子函数定制
通过knitr的钩子函数接管所有代码块的警告处理逻辑：

```r
```{r setup-hook, include=FALSE}
knitr::knit_hooks$set(warning = function(x, options) {
  # 将警告内容输出到控制台
  cat(x, file = stderr())
  # 返回空字符串，不在文档中渲染警告
  return("")
})

这个钩子会拦截所有代码块产生的警告，把内容输出到控制台后，返回空内容给渲染流程，从而实现文档中不显示警告的效果。如果需要针对特定代码块生效，可以在钩子函数里添加对`options`参数的判断逻辑。

### 注意事项
- 全局设置（方法一、三）会影响所有代码块，若需要保留部分警告在文档中，建议使用方法二或在钩子中添加过滤规则。
- 使用`file = stderr()`确保提示信息输出到控制台的错误流，避免和正常输出混淆。

内容的提问来源于stack exchange，提问作者thothal