Как я могу применить стиль форматирования для всех DataTables в R ноутбук

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() 

Или около данных. Таблица аналогичным образом.