隐藏导航栏标题答案

【问题标题】：Hide navbar title隐藏导航栏标题
【发布时间】：2019-06-09 07:57:53
【问题描述】：

我正在开发一个带有大量 tabPanel 的 navbarPage 的 Shiny 应用程序。这是一个最小的例子：

ui <- navbarPage(
  'example', collapsible=TRUE,
  tabPanel("panel 01", 'some text'), tabPanel("panel 02"), tabPanel("panel 03"), 
  tabPanel("panel 04"), tabPanel("panel 05"), tabPanel("panel 06"), 
  tabPanel("panel 07"), tabPanel("panel 08"), tabPanel("panel 09"), 
  tabPanel("panel 10"), tabPanel("panel 11"), tabPanel("panel 12")
)
server <- function(input, output){}  
shinyApp(ui=ui, server=server)

现在，如果屏幕足够宽，标签会与标题很好地对齐，如下所示：

但是，在较小的窗口中，面板不再适合一行，导致：

面板标题被移到标题下方的一行，基本上浪费了标题行的大量空间。这特别烦人，因为我将标题设置为“”或NULL，导致出现空行：

有没有办法删除/隐藏这个空行？我试过弄乱样式标签，但没有什么能解决这个问题。

【问题讨论】：

标签： css r shiny navbar

【解决方案1】：

您可以通过设置{display:none} 来隐藏navbar-brand 和.css。为此，您需要稍微调整一下您的 UI。因为您使用的是navbarPage，所以需要添加tagList 函数。如果你不将它包装在 taglist 中，shiny 会认为你想创建一个新的tabPanel，并且会出现一个 ghost 选项卡。更多信息here.

一个工作示例：

ui <- shinyUI(
  tagList(tags$head(tags$style(type = 'text/css','.navbar-brand{display:none;}')),
          navbarPage(
            '', collapsible=TRUE,
            tabPanel("panel 01", 'some text'), tabPanel("panel 02"), tabPanel("panel 03"), 
            tabPanel("panel 04"), tabPanel("panel 05"), tabPanel("panel 06"), 
            tabPanel("panel 07"), tabPanel("panel 08"), tabPanel("panel 09"), 
            tabPanel("panel 10"), tabPanel("panel 11"), tabPanel("panel 12")
          )))

server <- function(input, output){}  
shinyApp(ui=ui, server=server)

【讨论】：