R shinydashboard custom CSS to valueBox

Question

私はvalueBoxの色を（validColorsで利用可能なものを超えて）カスタム色に変更しようとしていますが、そうすることはできませんでした。私はカスタムCSSを含めるためにタグを使用する方法があることを理解していますが、私はそれらを適切な場所に置くことができませんでした。

ui<- dashboardPage( 
       dashboardHeader(), 
       dashboardSidebar(), 
       dashboardBody( 
          fluidRow(valueBoxOutput("name") 
          ))) 

server<- function(input, output){ 
    output$name<- renderValueBox({ valueBox( 
    ("example"), subtitle = "Subtitle text",color="blue")} 
)} 

ご迷惑をおかけして申し訳ありません。

Answer 1

こんにちは、あなたはボックスの色（ここでは派手な黄色）とテキストカラーのcolorためbackground-colorを変更し、以下のようなUIにtags$styleとカスタムカラーを追加するCSSクラスを上書きすることができます。 color = "yellow"の唯一のボックスは、クラス.small-box.bg-yellowのみが更新されるため、変更されます。

library("shiny") 
library("shinydashboard") 

ui<- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    tags$style(".small-box.bg-yellow { background-color: #FFFF00 !important; color: #000000 !important; }"), 
    fluidRow(
     valueBoxOutput("name1"), 
     valueBoxOutput("name2") 
    ) 
) 
) 

server<- function(input, output){ 
    output$name1 <- renderValueBox({ 
    valueBox("example", subtitle = "Subtitle text", color = "yellow") 
    }) 
    output$name2 <- renderValueBox({ 
    valueBox("example", subtitle = "Subtitle text", color = "blue") 
    }) 
} 
shinyApp(ui = ui, server = server)