Отделяйте заголовок от вкладки Панели в navbarPage

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 (между строками нет пробелов и т. Д. c.). Надеюсь, это достаточно ясно.

Также спросили в сообществе RStudio

Answer 1

Вы можете сделать так, чтобы заголовок имел ширину 100% с помощью CSS, тем самым перемещая tabPanel s под ним:

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)