更改仪表板标题字体颜色，使其变亮并保留徽标

问题描述

对于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）更改为黄色，同时保持徽标不变。我已经检查了其他问题，但是这些答案与我构建代码的方式并不完全匹配。

解决方法

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

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)

html shiny shinydashboard