如何在参数化Rmarkdown中为kableExtra kbl动态设置标题

问题 #

使用kableExtra的kbl()函数设置表格标题时，将YAML参数传递给caption参数，单个参数（如单个年份）能正常显示标题，但传入2个及以上的year或runs参数时，会出现标题重复的情况。

用户尝试的代码：

YAML配置 #

---
title: "Testing Caption on kbl"
params:
  runs: 
  - NewCars 
  - OldCars
  year:
  - 2011
  - 2012
output:
  pdf_document: default
---

R代码 #

## Introduccion
mtcars are nice........

library(kableExtra)

kbl(mtcars[1:5,1:6], booktabs = T, linesep = "", 
    caption = paste("This table represents", params$runs, 
    "and", params$year, "brood year (s)")) %>%
kable_styling(latex_options = "striped")  

原因 #

问题出在paste()函数的行为上：当传入向量（比如params$runs是包含两个元素的向量）时，paste()会将向量的每个元素分别与前面的字符串拼接，生成多个字符串结果，导致kbl()重复渲染标题。

解决方法 #

使用paste()的collapse参数，将向量中的多个元素合并为一个用指定分隔符连接的字符串，再进行标题拼接。

修改后的R代码：

library(kableExtra)

# 先将多值参数合并为单个字符串
runs_combined <- paste(params$runs, collapse = ", ")
year_combined <- paste(params$year, collapse = ", ")

kbl(mtcars[1:5,1:6], booktabs = T, linesep = "", 
    caption = paste("This table represents", runs_combined, 
                    "and", year_combined, "brood year(s)")) %>%
kable_styling(latex_options = "striped")  

或者直接在caption中嵌套使用paste：

library(kableExtra)

kbl(mtcars[1:5,1:6], booktabs = T, linesep = "", 
    caption = paste("This table represents", paste(params$runs, collapse = ", "), 
                    "and", paste(params$year, collapse = ", "), "brood year(s)")) %>%
kable_styling(latex_options = "striped")  

修改后生成的标题为：This table represents NewCars, OldCars and 2011, 2012 brood year(s)，不会再出现重复。

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