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

您好，您可以覆盖CSS类，在下面的ui中添加tags$style的自定义颜色，修改background-color的框颜色（此处为华丽的黄色）和color文字颜色。此处仅修改包含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)

R shinydashboard自定义CSS到valueBox

1 个答案: