以闪亮的方式更改仪表板标题字体颜色并保留徽标答案

【问题标题】：Changing dashboardHeader font color in shiny and keep logo以闪亮的方式更改仪表板标题字体颜色并保留徽标
【发布时间】：2020-12-10 22:03:22
【问题描述】：

我的 mi UI 有以下代码：

    header <- dashboardHeader()

anchor <- tags$a(href='https://www.lssu.edu/cfre/',
                 tags$img(src='logo12.png', height='40', width='40'),
               'MiWaterNet')
#anchor$children[[2]]$children <-tags$div(
#  tags$head(tags$style(HTML("h1 { color: red}"))),class='name')
header$children[[2]]$children <- tags$div(
  tags$head(tags$style(HTML(".name {background-color: transparent}"))),
  anchor,
  class = 'name')


dashboardPage( 
  title="CFRE MiWaterNet",
skin="black",
header,
dashboardSidebar(disable = T),
dashboardBody()

结果如下： resulting image

我希望能够将字体 (MiWaterNet) 更改为黄色，同时保持徽标不变。我检查了其他问题，但这些答案与我构建代码的方式并不相符。

【问题讨论】：

标签： html css shiny shinydashboard

【解决方案1】：

只需添加如下所示的样式：

header <- dashboardHeader()

anchor <- tags$a(href='https://www.lssu.edu/cfre/',
                 tags$img(src='YBS.png', height='40', width='40'),
                 'MiWaterNet', style = "color:red;")
#anchor$children[[2]]$children <-tags$div(
#  tags$head(tags$style(HTML("h1 { color: red}"))),class='name')
header$children[[2]]$children <- tags$div(
  tags$head(tags$style(HTML(".name {background-color: transparent}"))),
  anchor,
  class = 'name')


ui <- dashboardPage( 
  title="CFRE MiWaterNet",
  skin="black",
  header,
  dashboardSidebar(disable = T),
  dashboardBody()
)
  
server <- function(input, output, session) {}

shinyApp(ui = ui, server = server)

【讨论】：