r-将标题与导航栏页面中的选项卡面板分离

Question

是否可以将所有tabPanel放在navbarPage标题下方的一行中？换言之，我希望保留navbarPage的外观，但保留在两行：第一行是标题，第二行是tabPanel。这将允许通过将标题保持在一行来"隔离"标题。

library(shiny)
ui <- navbarPage(
title = "some title",
tabPanel("first tab"),
tabPanel("second tab")
)
server <- function(input, output, session) {}
shinyApp(ui, server)

请注意，这不一定是navbarPage。任何可以做到这一点的UI都是可以接受的，但它必须具有navbarPage的外观(行之间没有空格等(。希望这一点足够清楚。

在RStudio社区上也被问及

Answer 1

您可以通过CSS强制标题具有100%的宽度，从而将tabPanel移动到其下方：

library(shiny)
ui <- navbarPage(
title = "some title",
tabPanel("first tab"),
tabPanel("second tab"),
tags$style(HTML(".navbar-header { width:100% }
.navbar-brand { width: 100%; text-align: center }")) # center text
)
server <- function(input, output, session) {}
shinyApp(ui, server)