如何更改包含和嵌入图像的闪亮仪表板标题中的文本颜色？

Question

我使用下面的代码将图像嵌入到我闪亮的仪表板的标题中。使用我的代码，标题的文本颜色发生变化，我想将其恢复为白色。如何修改我的代码，使标题中的标题为白色，同时保留图像？谢谢。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(

  dashboardHeader(titleWidth = 350,
                  title = tags$a(tags$img(src = "RStudioImage.png", height = '50',
                                          width = '50'),
                                 "Example Dashboard")),
  
  dashboardSidebar(),
  
  dashboardBody()
  
  )

server <- function(input, output) {
  
  
}

shinyApp(ui = ui, server = server)

Answer 1

颜色发生变化，因为您将图像和标题包装在用于添加超链接的

<a>

标签中。因此，应用了

<a>

标签的默认 CSS 规则，该规则通常使用不同的文本颜色来指示用户可以单击此元素。

如果您不想在标题或图像中添加超链接，您可以将其换行为

<div>

。

library(shiny)
library(shinydashboard)
#> 
#> Attaching package: 'shinydashboard'
#> The following object is masked from 'package:graphics':
#> 
#>     box

ui <- dashboardPage(
  dashboardHeader(
    titleWidth = 350,
    title = tags$div(
      tags$img(
        src = "RStudioImage.png", height = "50",
        width = "50"
      ),
      "Example Dashboard"
    )
  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)
#> 
#> Listening on http://127.0.0.1:4023

以防万一。如果您想添加超链接但只想更改标题的文本颜色，您可以通过添加

style

属性来使用一些内联 CSS：

library(shiny)
library(shinydashboard)
#> 
#> Attaching package: 'shinydashboard'
#> The following object is masked from 'package:graphics':
#> 
#>     box

ui <- dashboardPage(
  dashboardHeader(
    titleWidth = 350,
    title = tags$a(
      tags$img(
        src = "RStudioImage.png", height = "50",
        width = "50"
      ),
      "Example Dashboard",
      style = "color: white" 
    )
  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)
#> 
#> Listening on http://127.0.0.1:8734