在flexdashboard（仪表板）中更改字体大小/颜色/字体

我有以下代码：

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)
library(shinycssloaders)
library(plotly)
library(treemap)
library(viridisLite)
library(highcharter)
library(V8)
library(dplyr)
library(RColorBrewer)
library(openxlsx)
library(quantmod)
library(shinyWidgets)
library(caret)
library(lubridate)
library(tidyr)
library(flexdashboard)


xheader<-dashboardHeaderPlus( title = "ABC")


xsidebar<- dashboardSidebar(
  sidebarUserPanel("USER",
                   subtitle = "Test",
                   image = "XXX"
  ),

  sidebarMenu(id = "left_sidebar",
              menuItem("DashBoard",
                       tabName = "ID_DashBoard",
                       icon = icon("desktop"))

  )
)

x1body<-dashboardBody(
    tabItems(
      tabItem(tabName = "ID_DashBoard",
          fluidRow(
            column(width = 4,
                   fluidRow(style = "height:1000px; background-color: #E8E9EC;font-weight:bold",
                            column(width = 4, style = "color:green;font-weight:bold;",
                                   gaugeOutput("gauge1", width = "100px", height = "200px")
                            ),
                            column(width = 4,
                                   gaugeOutput("gauge2", width = "100px", height = "200px")
                            ),
                            column(width = 4,
                                   gaugeOutput("gauge3", width = "100px", height = "200px")
                            )

                   )

            ),
            column(width = 4,
                   fluidRow("MIDDLE", style = "height:1000px; background-color: #F2F3F5;")
            ),
            column(width = 4,
                   fluidRow("RIGHT", style = "height:1000px; background-color: #E8E9EC;")
            )

          )
      )
    )
)


ui<- dashboardPagePlus(
  shinyjs::useShinyjs(),
  header = xheader,
  sidebar = xsidebar,
  body = x1body,
  skin = "black",
  sidebar_background = "light",
  collapse_sidebar = TRUE
)

server <- function(input,output,session){

  output$gauge1 = renderGauge({
    gauge(0.5, 
          min = 0, 
          max = 1, 
          sectors = gaugeSectors(success = c(0.5, 1), 
                                 warning = c(0.3, 0.5),
                                 danger = c(0, 0.3)),
          label = "Total Commits"
    )
  })

  output$gauge2 = renderGauge({
    gauge(0.1, 
          min = 0, 
          max = 1, 
          sectors = gaugeSectors(success = c(0.5, 1), 
                                 warning = c(0.3, 0.5),
                                 danger = c(0, 0.3)),
          label = "Total Executed"
    )
  })
  output$gauge3 = renderGauge({
    gauge(0.1, 
          min = 0, 
          max = 1, 
          sectors = gaugeSectors(success = c(0.5, 1), 
                                 warning = c(0.3, 0.5),
                                 danger = c(0, 0.3)),
          label = "Total Executed"
    )
  })


}

shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
图书馆（shinydashboardPlus）
图书馆（shinyjs）
图书馆（shinycssloaders）
图书馆（绘本）
图书馆（树形图）
图书馆（绿宝石）
图书馆（高级特许）
图书馆（V8）
图书馆（dplyr）
图书馆（RColorBrewer）
库（openxlsx）
图书馆（quantmod）
图书馆（shinyWidgets）
图书馆（插入符号）
图书馆（lubridate）
图书馆（tidyr）
库（flexdashboard）
xheader