Пакет DT в R предоставляет потрясающий набор функций для создания интерактивных таблиц в ваших документах Rmarkdown или Shiny Apps. Виньетка / справочная страница очень информативны и помогут с большинством проблем. См. здесь
Однако когда дело доходит до изменения цвета полос, я изо всех сил пытаюсь найти простое решение.
Основываясь на ответе, который здесь, я пришел со следующим, чтобы изменить цвет полос:
markets_list <- c("GC=F","SI=F","PL=F","CL=F","BZ=F","^TNX","^TYX","^VIX")
Now_Quotes <- getQuote(markets_list) %>%
dplyr::mutate(names = c("Gold","Silver","Platinum","Oil","Brent","Treas10Y","Treas30Y","VIX"))
datatable(Now_Quotes[,c(9,2)],
rownames = FALSE,
colnames = "",
options = list(dom = 't',bSort=FALSE,
columnDefs = list(list(className = 'dt-center', targets = c(0,1))),
rowCallback=JS('function(row,data) {if($(row)["0"]["_DT_RowIndex"] % 2 == 1) $(row).css("background","#737373")}'),
initComplete = JS("function(settings, json) {$(this.api().table().header()).css({'background-color': '#252525', 'color': '#fff'});}")))
Ясно, что это не кажется правильным способом, так как должно быть возможно изменить цвета на основе простых правил css. Может кто-нибудь указать правильный путь. Спасибо
