R 更改和改变闪亮主题中的字体

我将闪亮的主题用于布局和UI。但是我不确定如何根据我的喜好改变字体和颜色

我尝试过其他css方法，但似乎没有任何效果。我已经尝试过在navbarpage中使用html标记样式，但效果不太好

ui <- 
    navbarPage("AFA", collapsible = TRUE, inverse = TRUE, theme = shinytheme("united"),
             #  titlePanel(HTML("<h1><center><font size=14> Crimes in Washington, DC (2017) </font></center></h1>")),
               
            
         tabPanel("Plot",
                                      sidebarLayout(
                                          sidebarPanel(
                                              radioButtons("plotType", "Plot type",
                                                           c("Scatter"="p", "Line"="l")
                                              )
                                          ),
                                          mainPanel(
                                              plotOutput("plot")
                                          )
                                      )
                             ),
                             tabPanel("Summary",
                                      verbatimTextOutput("summary")
                             ),
                             navbarMenu("More",
                                        tabPanel("Table",
                                                 DT::dataTableOutput("table")
                                        ),
                                        tabPanel("About",
                                                 fluidRow(
                                                     column(6
                                                     )
                                                 )
                                        )
                             ))
    


server <- function(input, output, session) {
    output$plot <- renderPlot({
        plot(cars, type=input$plotType)
    })
    
    output$summary <- renderPrint({
        summary(cars)
    })
    
    output$table <- DT::renderDataTable({
        DT::datatable(cars)
    })
}

shinyApp(ui = ui, server = server)

---

ui@tpetzoldt是的。