Question

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

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。

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

1 个答案: