R Shiny-更改navbarPage中文本的顏色

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)