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)

R Shiny - 在navbarPage中更改文本的颜色

1 个答案: