如何让自定义R函数同时传递参数给kbl与kable_styling？

问题核心在于单个...无法区分要传递给两个不同函数的参数，导致非目标函数的参数被识别为无效参数。解决思路是将两个函数的参数分开接收，再分别传递。

方案代码 #

library(kableExtra)

my_kbl <- function(data, kbl_args = list(), styling_args = list()) {
  # 调用kbl并传入专属参数
  table <- do.call(kbl, c(list(data = data), kbl_args))
  # 调用kable_styling并传入专属参数
  table <- do.call(kable_styling, c(list(table_obj = table), styling_args))
  return(table)
}

使用示例 #

# 同时传递kbl的caption参数和kable_styling的font_size参数
my_kbl(
  data = mtcars[1:3, ],
  kbl_args = list(caption = "汽车数据集前3行", digits = 2),
  styling_args = list(font_size = 11, bootstrap_options = "hover")
)

原理说明 #

• 用kbl_args和styling_args两个列表参数，分别接收要传递给kbl()和kable_styling()的参数
• do.call()函数可以将列表中的元素展开为函数的独立参数，配合c()将固定参数（比如data和table_obj）与自定义参数合并后传递
• 这种方式完全避免了参数混淆，所有参数都会精准传递到对应函数中

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