如何移除R Shiny Dashboard主标题栏的边框线

要移除主标题栏的边框线，只需在现有自定义CSS中添加针对对应元素的边框清除规则即可。在skin="black"主题下，主标题栏的边框来自左侧logo区域和右侧导航栏区域，需要同时清除这两个元素的底部边框。

修改后的完整代码 #

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  
  skin = "black",
  
  dashboardHeader(
    tags$li(class = "dropdown",
            tags$style(".main-header {max-height: 75px}",
                       ".main-header .logo {height: 75px}",
                       # 移除主标题栏的边框线
                       ".skin-black .main-header .logo {border-bottom: none;}",
                       ".skin-black .main-header .navbar {border-bottom: none;}",
                       # 侧边栏选中项样式
                       ".main-sidebar .sidebar .sidebar-menu .active a{
                           background-color: #003A68;
                         }",
                       # 侧边栏背景色
                       ".main-sidebar .sidebar{
                           background-color: #005BA5;
                         }"
            )
    ),
    
    titleWidth = 350,
    title = tags$a(tags$image(src = "Gilbert Logo.png"))),

  dashboardSidebar(
    width = 350,
    sidebarMenu(id = "tab",
               
                div(class = "inlay", style = "height:25px;width:100%;background-color: #ecf0f5;"),
                menuItem("Inputs", icon = icon("sliders-h")))
  ),

  dashboardBody() 
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

关键说明 #

• .skin-black .main-header .logo：对应左侧logo所在的标题区域，清除其底部边框
• .skin-black .main-header .navbar：对应右侧导航栏区域，清除其底部边框
• 将这两条CSS规则加入你已有的tags$style块中，即可完全移除主标题栏的边框线。

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