如何在Quarto文档中实现R语言example函数的彩色输出效果？

直接调用example(type="html")无法在Quarto文档中正确渲染彩色输出，原因是该函数默认生成独立HTML文件而非直接嵌入文档流。可通过以下方法解决：

解决方案代码 #

---
title: "Help"
format: html
---

```{r}
#| echo: false
#| results: asis
library(htmltools)

# 创建临时HTML文件存储example输出
temp_html <- tempfile(fileext = ".html")
example(
  topic = mean,
  package = "base",
  type = "html",
  outdir = dirname(temp_html),
  file = basename(temp_html)
)

# 读取并渲染HTML内容
html_content <- readLines(temp_html, warn = FALSE)
cat(paste(html_content, collapse = "\n"))

## 关键说明
- `results: asis`：告诉Quarto直接解析输出的HTML代码，而非将其转义为纯文本显示。
- 临时文件处理：通过`tempfile()`生成临时文件，让`example()`将彩色HTML内容写入其中，再读取内容输出到文档中，保留原有的语法高亮样式。

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