如何将格式样式应用于 R 笔记本中的所有数据表

Question

我最近了解到，我可以使用 formatStyle 函数修改包DT中的datatable的外观

options(digits.secs=6)
library(data.table)
d = data.table(x = 1:10,time = as.POSIXct('2015-03-23 12:00:00.123'))
library(DT)
datatable(d, options=list(pageLength = 3, 
                          lengthMenu = c(2, 12, 18),
                          searching= FALSE))%>%
formatStyle( ., columns=0, target= 'row',color = 'black', backgroundColor = 'yellow', fontWeight ='bold', lineHeight='70%')

现在假设我有 10 个这样的表，我可以在笔记本中全局应用这些属性吗？

我知道我可以直接在笔记本正文中编写一些css，但它似乎不适用于上述属性

<style>                     
    table {                 
        white-space: nowrap;
    }                       
</style

Answer 1

这不是一个最优雅的解决方案，但你可以编写一个包装函数：

my.style <- function(.) formatStyle(., columns=0, target= 'row',color = 'black', backgroundColor = 'yellow', fontWeight ='bold', lineHeight='70%')

然后：

options(digits.secs=6)
library(data.table)
d = data.table(x = 1:10,time = as.POSIXct('2015-03-23 12:00:00.123'))
library(DT)
datatable(d, options=list(pageLength = 3, 
                          lengthMenu = c(2, 12, 18),
                          searching= FALSE))%>% my.style()

或者以类似的方式围绕 data.table。