如何全局定义renderDataTable的设置，类似ggplot的theme_set？

方法1：全局设置DT默认选项 #

可以通过options()函数全局定义DT的默认配置，类似ggplot的theme_set()，把重复的options参数统一设置：

# 在server函数外部或开头设置全局默认
options(DT.options = list(
  pageLength = 100,
  dom = "t",
  autoWidth = TRUE
))

之后使用renderDataTable时，无需重复写这些options参数，只需要传入数据表达式和其他个性化参数（比如rownames）：

output$t1_summary <- renderDataTable({ table_something() }, rownames = FALSE)
output$t2_summary <- renderDataTable({ table_another() }, rownames = FALSE)

方法2：自定义封装render函数 #

如果需要统一处理rownames这类不属于options的参数，或者想要更灵活的扩展空间，可以封装自己的渲染函数：

# 自定义renderDataTable封装函数
my_renderDT <- function(data_expr, rownames = FALSE, ...) {
  renderDataTable(
    expr = data_expr,
    options = list(pageLength = 100, dom = "t", autoWidth = TRUE),
    rownames = rownames,
    ...  # 允许传入额外参数覆盖默认设置
  )
}

使用时直接调用这个自定义函数，代码会简洁很多：

output$t1_summary <- my_renderDT({ table_something() })
# 个别需要修改参数的情况，直接传入覆盖
output$t2_summary <- my_renderDT({ table_another() }, rownames = TRUE, options = list(pageLength = 50))

两种方法对比 #

• 全局设置适合所有表格都使用完全相同的options配置，代码最简洁；
• 自定义函数适合需要统一处理多个参数（比如rownames），或者偶尔需要个别表格覆盖默认设置的场景，灵活性更高。

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