如何全局定义renderDataTable的设置，类似于我们在ggplot中处理主题？

Question

我不知道如何让我的代码更容易理解，因为我闪亮的服务器代码的很大一部分是这样的：

output$t1_summary <- renderDataTable( {  table_somethign() }  ,
                                             options = list(pageLength = 100, dom = "t",
                                                            autoWidth = TRUE), rownames= FALSE )

我想知道是否有办法在我的代码中全局定义这些设置。

当我们定义时，我们用 ggplot 做同样的事情

theme_set(theme_bw())

Answer 1

我不知道全局主题，我可能只是用自己的选项覆盖该功能。

myDT <- function(expr, server = TRUE, env = parent.frame(),
                 quoted = FALSE, funcFilter = DT:::dataTablesFilter,
                 future = FALSE, ...,
                 options = list(pageLength = 100, dom = "t", autoWidth = TRUE),
                 rownames = FALSE) {
  DT::renderDataTable(
    expr = expr, server = server, env = env, quoted = quoted,
    funcFilter = funcFilter, future = future, ...,
    options = options, rownames = rownames)
}