在 R 中的 Reactable 中使用的动态变量

如何解决在 R 中的 Reactable 中使用的动态变量

假设我正在使用 iris 数据集：

reactable(iris,groupBy = "Species",columns = list(
  Sepal.Length = colDef(aggregate = "count"),Sepal.Width = colDef(aggregate = "mean"),Petal.Length = colDef(aggregate = "sum"),Petal.Width = colDef(aggregate = "max")
))

现在我想改变这一点，以便 UDF 传递要使用的列名，因为我想多次使用这个可响应的：

summary_table <- function(var_name){
reactable(iris,columns = list(
      var_name = colDef(aggregate = "count"),Petal.Width = colDef(aggregate = "max")
    ))
}

我也尝试使用 !!!syms(var_name) 但它给出了错误：

unexpected '=' in:

      "!!!syms(summary_vars) ="

有什么关于如何做到这一点的建议吗？