gauge() doesn't work well bslib's custom theming

[cpsievert]

For example, I'd expect the gauge to use a light blue text color and also the Pacifico font:

library(shiny)
library(flexdashboard)
library(bslib)

ui <- fluidPage(
  theme = bs_theme(
    bg = "darkblue", fg = "lightblue",
    base_font = font_google("Pacifico")
  ),
  sliderInput("val", "Set gauge value", value = 37, min = 0, max = 50),
  gaugeOutput(outputId = "gauge")
)

server <- function(input, output) {
  
  sectors <- gaugeSectors(
    success = c(41, 50), 
    warning = c(21, 40), 
    danger = c(0, 20)
  )
  
  output$gauge <- renderGauge(
    gauge(
      input$val, min = 0, max = 50, 
      label = paste("Current value: ", input$val),
      sectors = sectors
    )
  )
  
}

shinyApp(ui = ui, server = server)