Изменить тип шрифта и цвет фона меню панели навигации

Question

У меня блестящее приложение, и я хотел бы изменить тип шрифта и цвет фона меню панели навигации.

Я использовал «Проверять» после запуска приложения и обнаружил, что этот элемент:

a href="#" class="dropdown-toggle" data-toggle="dropdown" data-value="More">
                  More
                  <b class="caret"></b>
                </a>

, но я не знаком с css.

ui <- function(){

bootstrapPage('',

            navbarPage(title = 'Hello colour changed',
                       navbarMenu("More",
                                  tabPanel("Table"

                                  ),
                                  tabPanel("About"

                                  )
                       )),

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

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

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

            ))

            }

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


            shinyApp(ui = ui, server = server)

Answer 1

Ниже будет изменен цвет фона, цвет текста навигационной панели, и вы также можете установить font-family для изменения типа шрифта.

library(shiny)
library(shinydashboard)

ui <- function(){
  navbarPage(title = 'Hello colour change',
             tabPanel("title2"),
             tabPanel("title3"),

             tags$style(type = 'text/css', 
                        '.navbar { background-color: red;}',
                        '.navbar-default .navbar-brand{color: white;}',
                        '.tab-panel{ background-color: red; color: white}'

             ))
  }

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

shinyApp(ui = ui, server = server)