R Shiny - navbarPage에서 텍스트의 색상을 변경하십시오.

Question

CSS 스타일을 사용하여 navbar의 배경색을 변경하지만 텍스트의 색상은 변경하지 않습니다. 아래 코드를 기본 코드로 재현합니다.

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)