调整窗口大小时闪亮导航栏标题行的大小会发生变化

Question

如何消除窗口调整为较小尺寸时出现的导航栏标题下方的空间？在下面的屏幕截图中，灰色标题行的高度似乎是原来的两倍。最小示例的代码如下。变化似乎发生在 600px 宽度处。

library(shiny)

ui <- navbarPage(
  title = "Title", id = "navbar", 
  tabsetPanel(id="tabs", 
              tabPanel(value = "tab1", title = "Tab1"),
              tabPanel(value = "tab2", title = "Tab2")
  )
)

server <- function(input, output, session) {
}

shinyApp(ui, server)

Answer 1

您可以为您的导航栏设置

position: absolute;

，它不会在 600px 以下改变。

library(shiny)

ui <- navbarPage(
    tags$head(tags$style(HTML("
                              #navbar {
                                position: absolute;
                              }
                              "))),
    title = "Title", id = "navbar", 
    tabsetPanel(id="tabs", 
                tabPanel(value = "tab1", title = "Tab1"),
                tabPanel(value = "tab2", title = "Tab2")
    )
)

server <- function(input, output, session) {
}

shinyApp(ui, server)