Javascript 更改R DT数据表中控件的颜色
在R中,Shinny和datatable(DT)希望将控件文本的颜色更改为蓝色,因为它表明可以在这里: 通过将Javascript 更改R DT数据表中控件的颜色,javascript,r,datatable,shiny,Javascript,R,Datatable,Shiny,在R中,Shinny和datatable(DT)希望将控件文本的颜色更改为蓝色,因为它表明可以在这里: 通过将控制文本:值调整为#0000ff,这似乎会将页面上分页按钮的文本颜色以及搜索文本等更改为蓝色,但我希望这是一个具有已呈现的数据表的闪亮应用程序。任何帮助都将不胜感激 请参阅下面的示例,其中文本的颜色未更改为蓝色 library(DT) library(shiny) ui=shinyUI( fluidPage( tags$head(tags$style
控制文本:
值调整为#0000ff
,这似乎会将页面上分页按钮的文本颜色以及搜索文本等更改为蓝色,但我希望这是一个具有已呈现的数据表的闪亮应用程序。任何帮助都将不胜感激
请参阅下面的示例,其中文本的颜色未更改为蓝色
library(DT)
library(shiny)
ui=shinyUI(
fluidPage(
tags$head(tags$style(HTML("table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {
background-color: #9c4242 !important;
} "))),
DT::dataTableOutput("tt")
)
)
server=shinyServer(function(input, output) {
output$tt=DT::renderDataTable(
DT:::datatable(
head(iris, 50),rownames = FALSE,options = list(dom='ptl',
initComplete = JS(
"function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
),
container = tags$table(
class="compact",
tags$thead(tags$tr(lapply(colnames(iris), tags$th)))
)
) %>% formatStyle(columns=colnames(iris),color='white',background = 'black',target = 'row')
)
})
shinyApp(ui=ui,server=server)
下面是一个示例(仅包括UI代码)
您只需要应用一些CSS。如果检查链接的页面,它会更改以下元素:.dataTables\u wrapper.dataTables\u length.dataTables\u wrapper.dataTables\u filter.dataTables\u wrapper.dataTables\u info.dataTables\u wrapper.dataTables\u wrapper.dataTables\u paginate
您能给我举个例子吗?
ui=shinyUI(
fluidPage(
tags$head(tags$style(HTML("table.dataTable.hover tbody tr:hover, table.dataTable.display tbody tr:hover {
background-color: #9c4242 !important;
}
"))),
tags$style(HTML(".dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing,.dataTables_wrapper .dataTables_paginate .paginate_button, .dataTables_wrapper .dataTables_paginate .paginate_button.disabled {
color: #0000ff !important;
}")),
DT::dataTableOutput("tt")
)
)