如何編輯 bs4Dash bs4ProgressBar 的字體顏色

Question

我有一個 R Shiny bs4Dash bs4ProgressBar在應用程序中運行。 我可以使用 status 參數編輯背景顏色，但我找不到編輯字體顏色的方法，並且在實際應用程序中，當背景為白色時通常沒有對比度。 如何將樣式應用於字體以使其變黑，我的嘗試（其中之一如下）沒有奏效？

提前致謝。

library(shiny)
library(bs4Dash)

ui <- fluidPage(

  tags$style(".prgs_fnt progress-bar {color: #000000 !important;}")
  , div(class = 'prgs_fnt'
        , bs4Dash::bs4ProgressBar(
          value      = 12
          , striped  = FALSE
          , status   = 'primary'
          , label    = '12'
          , vertical = F
          , min      = 0
          , max      = 20
        )
  )

)

server <- function(input, output, session) {}
shinyApp(ui, server)

Answer 1

bs4ProgressBar中沒有參數來改變字體顏色，但是我們可以使用 CSS 來做到這一點：

library(shiny)
library(bs4Dash)

ui <- fluidPage(
  
  tags$head(
    tags$style(HTML("
.prgs_fnt > .progress > .progress-bar {
  color: #f00
}

      "))
  ),

  tags$style(".prgs_fnt progress-bar {color: #000000 !important;}")
  , div(class = 'prgs_fnt'
        , bs4Dash::bs4ProgressBar(
          value      = 12
          , striped  = FALSE
          , status   = 'primary'
          , label    = '12'
          , vertical = F
          , min      = 0
          , max      = 20
        )
  )
  
)

server <- function(input, output, session) {}
shinyApp(ui, server)