dqshiny rhandsontable标题背景色

我想知道如何在这个闪亮的应用程序中更改标题的背景色。我使用dqshiny是因为我需要过滤器。dqshiny将过滤器包裹在rhandsontable周围。有人能帮忙吗

library(shiny)
library(dqshiny)
shinyApp(
  ui = fluidPage(
    dq_handsontable_output("randomTable", 9L)
  ),
  server = function(input, output, session) {
    hw <- c("Hello", "my", "funny", "world!")
    data <- data.frame(A = rep(hw, 500), B = hw[c(2,3,4,1)],
      C = 1:500, D = Sys.Date() - 0:499, stringsAsFactors = FALSE)
    dq_render_handsontable("randomTable", data,
      filters = c("A", NA, NA, NA), sorting = c(dir = "up", col = "B"),
      page_size = c(17L, 5L, 500L, 1000L), width_align = TRUE,
      col_param = list(list(col = 1L, type = "dropdown", source = letters)),
      cell_param = list(list(row = 2:9, col = 1:2, readOnly = TRUE))
    )
  }
)

库（闪亮）
图书馆（dqshiny）
shinyApp(
ui=fluidPage(
dq_可手动触摸_输出（“随机表”，9L）
),
服务器=功能（输入、输出、会话）{
硬件