如何编写函数动态创建并标准化Quarto代码块选项？

可行性说明 #

完全可行，用自定义R函数统一管理Quarto代码块选项，是规范团队文档输出的高效方式——既能管控label、echo、eval这类基础参数，也能根据输入灵活设置classes这类样式相关选项。

手动设置示例 #

你之前手动配置代码块选项的写法如下：

```{r}
cat("#| eval: false")
cat("#| classes: my-class")
mtcars

## 核心需求
实现`my_quarto_chunk`函数，通过参数控制代码块选项，同时嵌入要执行/展示的代码，目标函数结构：
```r
my_quarto_chunk <- function(eval = T, echo = F, classes = NULL, ...){
  # Set chunk options  
  cat("```{r}")
  cat("#| eval:", eval)
  cat("#| echo:", echo)
  cat("#| classes:", classes)
  
  # Code to execute / display in this code chunk
  ...
  
  cat("```")
}  

可运行的优化实现 #

要让函数正常工作，需要处理空值参数、保证格式合规、支持自定义代码，优化后的版本如下：

my_quarto_chunk <- function(eval = TRUE, echo = FALSE, classes = NULL, code = NULL, ...) {
  # 启动代码块
  cat("```{r}\n")
  
  # 输出基础选项（转成小写布尔值符合Quarto规范）
  cat("#| eval:", tolower(as.character(eval)), "\n")
  cat("#| echo:", tolower(as.character(echo)), "\n")
  
  # 仅当classes不为空时输出该选项
  if (!is.null(classes)) {
    cat("#| classes:", classes, "\n")
  }
  
  # 处理额外传入的参数（比如label）
  extra_args <- list(...)
  if (length(extra_args) > 0) {
    for (name in names(extra_args)) {
      cat("#|", name, ":", extra_args[[name]], "\n")
    }
  }
  
  # 输出要执行的代码内容
  if (!is.null(code)) {
    cat(code, "\n")
  }
  
  # 闭合代码块
  cat("```\n")
}

使用示例 #

直接在Quarto的R代码块中调用该函数，即可生成标准化的代码块：

# 生成带自定义类、关闭echo的代码块
my_quarto_chunk(eval = TRUE, echo = FALSE, classes = "my-class", code = "mtcars")

# 额外传入label参数
my_quarto_chunk(label = "mtcars-summary", code = "summary(mtcars)")

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