Я использую тему superhero
в Shiny вместе со строкой ниже, которая помогает сделать цвет текста фильтра черным,
ui <- fluidPage(
theme = shinytheme("superhero"),
tags$head(tags$style("div.dataTables_scrollHead span {color: black;}")),
...
)
1. Однако фиксированные столбцы (временной столбец 1) цвет не противоречит цвету темы. Это белый и трудно увидеть текст. Как я могу изменить это, чтобы соответствовать цвету темы супергероя или изменить его на более удобный для пользователя цвет?
Обновление: Итак, мне удалось изменить фиксированный цвет столбца, но я хочу один ряд должен быть темно-синим, а другой - голубым. Кроме того, индекс строки и заголовок столбца по-прежнему белого цвета, как показано на рисунке ниже.
output$mytable <- DT::renderDataTable(datatable(df,rownames = T,
filter="top",
extensions = "FixedColumns",style = 'bootstrap',
options = list(scrollX = TRUE, scrollY = TRUE,
autoWidth = F,
columnDefs = list(list(width = '145px', targets = c(1))),
fixedColumns=list(leftColumns=2)))
%>%formatRound(c(2:l_agg), 2)%>% formatStyle('Timestamp',backgroundColor='#2B3E50'))
Обновленное изображение
2. И сейчас фиксированный столбец (время) имеет тип character
(приведен от POSIXct
к символу), я пытался ввести POSIXct
время в datatable
, но часовой пояс другой. Как получить столбец времени с типом POSIXct
и правильно отформатировать его в datatable?
Например, это данные о временных рядах, которые у меня есть, и в идеале я хочу, чтобы данные Shiny отображались, как показано ниже, без части CST.
[1] "2020-04-06 09:31:20.000 CST" "2020-04-06 09:31:51.000 CST" "2020-04-06 09:32:21.000 CST" "2020-04-06 09:32:50.000 CST"
[5] "2020-04-06 09:33:21.000 CST" "2020-04-06 09:33:51.000 CST"
Структура
structure(c(1586136680.0005, 1586136711.0005, 1586136741.0005,
1586136770.0005, 1586136801.0005, 1586136831.0005), class = c("POSIXct",
"POSIXt"), tzone = "")
Однако в Shiny она отображается так, как показано ниже, а это не то, что я хочу.