Css 使用R调整选项卡面板标题的宽度

在布局我的R Shining Web应用程序时，我遇到了一个问题，在论坛中找不到解决方案

我的目标是在我的页面中有一个选项卡面板，其中标题占据了页面本身的整个宽度

library(shiny)
ui <- fluidPage(
   tabsetPanel(
    tabPanel("Title1", tags$h1("text")),
    tabPanel("Title2", tags$h1("text")),
    tabPanel("Title3", tags$h1("text")),
    tabPanel("Title4", tags$h1("text"))
   )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

库（闪亮）
ui我不擅长CSS，但这应该给你（或其他贡献者）一个开始。我面临的问题是，标题前面会出现一个幻影选项卡，如果您使屏幕非常窄，它的大小不会正确调整（会缩小到某一点，然后失败）

希望这有帮助

library(shiny)
ui <- fluidPage(
  tabsetPanel(
    tags$head(tags$style(HTML('
                            /* HEADER */
                            .nav>li>a {
                            padding: 1vh 8vw;;
                            }'
))),



    tabPanel("Title1", tags$h1("text")),
    tabPanel("Title2", tags$h1("text")),
    tabPanel("Title3", tags$h1("text")),
    tabPanel("Title4", tags$h1("text"))
  )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

库（闪亮）
ui确实是一个开始。我也尝试过使用填充，但它似乎更像是一种“静态”解决方案，而我正在寻找一种“动态”调整选项卡宽度以适应窗口宽度的解决方案。当然感谢你的意见！这就是为什么我使用大众和px。它应该可以动态调整，并在一定程度上进行调整。我发现，如果你使用这个CSS，它工作得很好！“tabbable>.nav>li>a{颜色：黑色；宽度：23vw；}”-