如何为Reactable表格全局设置compact、striped等默认选项？

当然可以实现全局设置compact = TRUE、striped = TRUE这类默认选项，Reactable本身没有提供直接的全局参数配置（除了主题），但我们可以通过封装自定义函数的方式来解决这个问题，下面是两种实用方案：

方案一：固定默认参数的自定义函数 #

直接封装一个自己的Reactable调用函数，把需要的默认参数写死在函数里，之后统一用这个函数创建表格：

# 加载reactable包
library(reactable)

# 封装自定义函数，预设默认参数
my_reactable <- function(data, compact = TRUE, striped = TRUE, ...) {
  reactable(data, compact = compact, striped = striped, ...)
}

# 使用示例：直接调用自定义函数，自动应用默认配置
my_reactable(iris)

# 临时覆盖默认配置：直接传入新参数即可
my_reactable(iris, compact = FALSE, striped = FALSE)

方案二：可灵活修改的全局默认配置 #

如果需要随时调整全局默认参数，可以用R的options()来存储默认值，再封装函数读取这些配置，这样修改全局配置时不用改动函数本身：

library(reactable)

# 设置全局默认选项
options(reactable.defaults = list(compact = TRUE, striped = TRUE))

# 封装读取全局配置的自定义函数
my_reactable <- function(data, ...) {
  # 获取全局默认配置，没有设置时用空列表
  defaults <- getOption("reactable.defaults", list())
  # 合并用户传入的参数和全局默认参数，用户参数优先级更高
  args <- modifyList(defaults, list(data = data, ...))
  # 调用原生reactable函数
  do.call(reactable, args)
}

# 使用示例
my_reactable(mtcars)

# 修改全局默认配置，后续调用的表格都会生效
options(reactable.defaults = list(compact = FALSE, striped = TRUE, bordered = TRUE))
my_reactable(mtcars)

这两种方案都能帮你避免重复粘贴相同的配置参数，根据自己的需求选择即可。

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