Shiny主题修改CSS颜色时顶部导航栏绿色溢出到底部如何解决？

你代码的问题为tags$head标签未正确闭合，导致后续所有UI元素都被包含到<head>节点内，你定义的导航栏背景样式因此作用到了整个页面，才会出现背景色延伸到页面底部的异常。

修正方法 #

仅需要为tags$head补充闭合的右括号即可，修正后的完整UI代码如下：

ui <- shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                          br(),
                         
                          tags$head(tags$style(HTML('.navbar-static-top {background-color: green;}',
                                                    '.navbar-default .navbar-nav>.active>a {background-color: green;}'))),
                          tabPanel("",
                                   sidebarLayout(
                                     sidebarPanel(
                                       
                                       uiOutput("date"),
                                       br(),
                                     ),
                                     
                                     mainPanel(
                                       tabsetPanel(
                                         tabPanel("",plotOutput("Graph",width = "95%", height = "600")))),
                                     ))
                          )

修改完成后运行即可看到顶部导航栏为绿色，页面其余部分样式正常。

内容的提问来源于stack exchange，提问作者Antonio