如何解决如何在Shinydashboard中更改侧边栏menuItem“ menu1”字体颜色?
我正在尝试更改Shinydashboard侧栏中的menuItem()的文本颜色,但是我的代码无法正常工作。
我的代码:
library(shinydashboard)
ui <- shinyUI(dashboardPage(
dashboardHeader(title = "a"),dashboardSidebar(
tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")),menuItem("first"),menuItem("second")
),dashboardBody(
tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")),tags$head(tags$style(HTML('
.skin-blue .sidebar-menu > li.active > a {
color:#ccff00; background-color:#ffffff
},.skin-black .main-sidebar ELEMENT {
color: #ffccdd;}
.skin-blue .sidebar-menu > li:hover > a {font-color : #ffdd00;
border-left-color: #ff0000 ; background-color:#ffffff;
}'
))),"HI"
)))
server <- shinyServer(function(input,output){
})
shinyApp(ui,server)
在这方面的任何帮助都将非常可观。
解决方法
我已经删除了一些样式代码,但这应该可以提供所需的颜色结果:
library(shiny)
library(shinydashboard)
ui <- shinyUI(dashboardPage(
dashboardHeader(title = "a"),dashboardSidebar(
tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")),menuItem("first"),menuItem("second")
),dashboardBody(
tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")),tags$head(tags$style(HTML('
.skin-blue .sidebar a {
color: #ccff00;
}'
))),"HI"
)))
server <- shinyServer(function(input,output){
})
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。