Shiny 如何将整个导航栏页面涂成闪亮的颜色

以下代码几乎完全符合我的要求：

ui <- fluidPage(

  tags$style(HTML(".navbar{background-color: #690a20;}")),

  navbarPage(
    title='Navbar',

    tabPanel(
      title = "start page",

      fillPage(
        fluidRow(style = "background-color: #690a20;color: white;",
                 br(),
                 br(),
                 headerPanel(h1("WELCOME", align='center')),
                 h4("Thank you for participating",
                    align='center'),
                 br(),
                 br(),
                 br())
   ))))

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

shinyApp(ui = ui, server = server)

ui这就足够了吗

library(shiny)
ui <- fluidPage(

    tags$style(HTML(".navbar{margin:0px;background-color: #690a20;}")),
    navbarPage(
        title='Navbar',
        tabPanel(
            title = "start page",
            fillPage(
                fluidRow(style = "background-color: #690a20;color: white;",
                         br(),
                         br(),
                         headerPanel(h1("WELCOME", align='center')),
                         h4("Thank you for participating",
                            align='center'),
                         br(),
                         br(),
                         br())
            ))))

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

shinyApp(ui = ui, server = server)

库（闪亮）
ui我找到了解决问题的方法：

library(shiny)
library(shinyjs)


ui <- fluidPage(

  useShinyjs(),
  tags$style(type='text/css', "nav.navbar.navbar-default.navbar-static-top{border-color: #f5f5f5;background-color: #f5f5f5;}"),
  tags$style(type='text/css', ".navbar{min-height: 0px; margin-bottom: 0px;}"),
  tags$style(type='text/css', ".navbar-brand{height: 0px; padding: 0px 0px;}"),


  tags$style(HTML(".navbar{background-color: #690a20;}")),

  navbarPage(
    title=NULL, id="navigation-bar",

    tabPanel(
      title = "start page",

      fillPage(
        fluidRow(style = "background-color: #690a20;color: white;",
                 br(),
                 br(),
                 headerPanel(h1("WELCOME", align='center')),
                 h4("Thank you for participating",
                    align='center'),
                 br(),
                 br(),
                 br())
      ))))

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

  observe(
    {
      hide(selector = "#navigation-bar")
    })
})


shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（shinyjs）
如果可能的话，我不想有这个小小的白色条纹。或者在最好的情况下，只需隐藏起始页的导航栏。