在Quarto中能否复用kable函数内设置的表格标题？

要让同一段kable代码同时在Shiny和Quarto中正常显示标题（Quarto不重复，Shiny保留标题），可以用以下两种方案：

方案一：手动条件控制标题显示 #

在代码块中定义统一的标题变量，根据运行环境判断kable是否显示标题，同时用Quarto的动态标题功能绑定该变量：

```{r}
#| tbl-cap: !expr table_caption
# 定义统一标题
table_caption <- "Cars数据集前几行"
# Quarto环境下kable不输出标题，交给tbl-cap接管；Shiny环境下保留标题
kable(head(cars), caption = if (knitr::is_quarto()) NULL else table_caption)

在Quarto中，表格会使用`tbl-cap`指定的标题（支持交叉引用等Quarto表格特性），kable本身不输出标题；在Shiny中，kable会正常显示设置的标题，完美适配两个场景。

## 方案二：用knitr钩子自动处理标题
如果不想每次手动设置`tbl-cap`，可以在文档开头的setup代码块中添加钩子，自动提取kable的caption作为Quarto的表格标题，并移除kable中的标题参数避免重复：

```r
```{r setup, include=FALSE}
knitr::knit_hooks$set(output = function(x, options) {
  # 仅处理包含caption参数的kable输出
  if (grepl("kable.*caption=", x)) {
    # 提取caption的内容
    cap_match <- regmatches(x, regexpr("caption\\s*=\\s*['\"](.*?)['\"]", x))
    if (length(cap_match) > 0) {
      table_caption <- sub("caption\\s*=\\s*['\"]", "", cap_match)
      table_caption <- sub("['\"]$", "", table_caption)
      # 设置Quarto的tbl-cap参数
      options$tbl_cap <- table_caption
      # 移除kable代码中的caption参数
      x <- sub("caption\\s*=\\s*['\"].*?['\"]", "", x)
    }
  }
  knitr:::hook_output(x, options)
})

之后直接正常编写kable代码即可，无需额外设置`tbl-cap`：

```r
```{r}
kable(head(cars), caption = "Cars数据集前几行")

### 为什么`result: asis`无法解决问题
设置`result: asis`会让kable直接输出HTML/LaTeX代码，Quarto仍会解析其中的标题标签；如果同时设置了`tbl-cap`就会导致标题重复，不设置的话Quarto无法将其识别为带标题的规范表格（无法使用交叉引用等功能），所以这种方式无法解决适配问题。

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