如何编辑 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)

如何编辑 bs4Dash bs4ProgressBar 的字体颜色

How to Edit the Font Color of a bs4Dash bs4ProgressBar

r

shiny

bs4dash