Html 装饰R闪亮选项卡面板中的活动选项卡：添加好看的边框顶部

在我学习R shiny的过程中，我意识到我对css和html的了解是多么的少，非常感谢您的帮助。目前，我希望tabPanel中的活动选项卡在顶部显示一个颜色“条”。我的解决方案是使用以下style.css

.content wrapper.tabbable.nav.active{
边框顶部：3件纯红；
}

结果如下：

这基本上是我想要的，除了我希望红线更短，而不是超出标签本身。我试图更改边框顶部的长度，但没有成功。有什么建议吗？多谢各位

可复制代码见下文：

library("shiny")
library("shinydashboard")


ui = dashboardPage(
    dashboardHeader(title = "Title"),
    dashboardSidebar(),
    dashboardBody(
      tags$head(
        #add css style sheet to shiny dashboard
        tags$link(rel = "stylesheet", href = "style.css")),

      tabsetPanel(
        tabPanel(title = HTML(paste("Tab A"))),
        tabPanel(title = HTML(paste("Tab B")))
    )))

server = function(input, output, session) {}

shinyApp(ui = ui, server = server)