R Shiny - 更改导航栏页面中文本的颜色

Question

我实现了使用 css 样式更改导航栏的背景颜色而不是文本的颜色...
我将下面的基本示例复制到我的代码中。

ui <- function(){

  bootstrapPage('',

      navbarPage(title = 'Hello'),

      tags$style(type = 'text/css', '.navbar { background-color: #262626;
                                               font-family: Arial;
                                               font-size: 13px;
                                               color: #FF0000; }',

                                '.navbar-dropdown { background-color: #262626;
                                                    font-family: Arial;
                                                    font-size: 13px;
                                                    color: #FF0000; }'))

}

server <- function(input, output, session){
}


shinyApp(ui = ui, server = server)

Answer 1

好吧，您只需要更改此 css 上的颜色即可。

'.navbar-default .navbar-brand {
                         color: #cc3f3f;}'

在这里，我更改为#cc3f3f 以获得红色文本。

   ui <- function(){

  bootstrapPage('',

                navbarPage(title = 'Hello'),

                tags$style(type = 'text/css', '.navbar { background-color: #262626;
                           font-family: Arial;
                           font-size: 13px;
                           color: #FF0000; }',

                           '.navbar-dropdown { background-color: #262626;
                           font-family: Arial;
                           font-size: 13px;
                           color: #FF0000; }',

                           '.navbar-default .navbar-brand {
                             color: #cc3f3f;
                           }'

                           ))

}

server <- function(input, output, session){
}


shinyApp(ui = ui, server = server)