如何隐藏kbl()调用，同时生成与kbl()一致的美观表格输出？

希望展示给用户的代码不含kbl()（方便复制粘贴），但生成的HTML/PDF表格输出和调用kbl(booktabs = TRUE)的效果完全一致。尝试过将kableExtra::kbl()放在代码块选项中，但表格样式不符合预期，求可行解决方案。

示例代码 #

---
title: "表格相关内容"
author: Ian D. Gow
format: pdf
---

#| include: false
library(dplyr, warn.conflicts = FALSE)
library(kableExtra)

dt <- mtcars[1:5, 1:6]

#| label: tbl-with-kbl
#| tbl-cap: "使用`kbl()`的表格"
dt |> 
  kbl(booktabs = TRUE)

#| label: tbl-without-kbl
#| tbl-cap: "未使用`kbl()`的表格"
dt

方法1：分离展示代码与执行代码 #

利用Quarto代码块的echo和eval参数，分别指定要展示给用户的代码和实际运行的代码。用户看到的是简洁无kbl()的代码，实际生成的是美化后的表格：

#| label: tbl-clean
#| tbl-cap: "简洁代码生成美观表格"
#| echo: "dt"
#| eval: "dt |> kbl(booktabs = TRUE)"
dt

方法2：全局钩子自动处理 #

如果需要批量处理所有数据框输出，可以自定义knitr钩子，让数据框自动调用kbl()美化，同时展示代码时不包含kbl()：

在初始化代码块中添加钩子设置：

#| include: false
library(dplyr, warn.conflicts = FALSE)
library(kableExtra)

# 设置全局输出钩子，自动美化数据框表格
knitr::knit_hooks$set(output = function(x, options) {
  if (inherits(x, "data.frame")) {
    # 对数据框应用kbl美化
    res <- x |> kbl(booktabs = TRUE)
    knitr::knit_print(res)
  } else {
    # 非数据框输出保持原样
    knitr::knit_print(x)
  }
})

之后的代码块直接写数据框名称即可，展示的代码简洁，输出的表格自动美化：

#| label: tbl-auto-beautify
#| tbl-cap: "钩子自动美化的表格"
dt

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