如何解决更改仪表板标题字体颜色,使其变亮并保留徽标
对于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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。