R Markdown中kable折叠含链接列后链接失效的解决方法

我创建了一个data.frame并希望将其以表格形式展示，代码如下：

df <- data.frame(A=c("a","b"),
                 B=c("[link](http://stackoverflow.com)","[link](http://stackoverflow.com)"))

直接使用kable(df,format="html",escape=FALSE)时，表格中的链接可正常显示。但当我使用collapse_rows函数折叠包含链接的列后，链接却无法正常工作。完整可复现的Quarto文档代码如下：

--- 
title: "Test" 
format: html 
editor: visual
---

```{r}
#| echo: true
df <- data.frame(A=c("a","b"),B=c("[link](http://stackoverflow.com)","[link](http://stackoverflow.com)"))
library(knitr)
library(kableExtra)
kable(df,format="html",escape=FALSE) %>% collapse_rows(columns=2)

# 解决方案
问题根源是`collapse_rows`函数默认会对内容执行HTML转义操作，导致原本的Markdown链接被转换为纯文本，无法解析为可点击的链接。

只需在`collapse_rows`中添加`escape=FALSE`参数，就能保留链接的原始格式：

修改后的完整代码：

title: "Test"
format: html
editor: visual #

#| echo: true
df <- data.frame(A=c("a","b"),B=c("[link](http://stackoverflow.com)","[link](http://stackoverflow.com)"))
library(knitr)
library(kableExtra)
kable(df,format="html",escape=FALSE) %>% 
  collapse_rows(columns=2, escape=FALSE)

执行上述代码后，折叠行中的链接即可正常点击跳转。

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