如何在shinydashboard中以背景色显示数据表

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Background Table"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(
        width = 6,
        tableOutput("table")
      )
    )
  )
)

server <- function(input, output) {
  output$table <- renderTable({
    # 生成数据表
    data <- data.frame(
      Name = c("John", "Mary", "Tom"),
      Age = c(25, 30, 35)
    )
    
    # 设置表格的背景色
    bg_color <- "lightblue"
    
    # 生成带有背景色的数据表
    datatable(data,
              options = list(
                columnDefs = list(list(targets = "_all", className = "dt-center"))
              ),
              class = "display",
              style = "background-color: #{bg_color};"
    )
  })
}

# 运行shiny应用程序
shinyApp(ui, server)