闪亮仪表板上的多个导航栏 - 删除奇怪的间距

Question

我在闪亮的仪表板页面上使用多个导航栏，因为我打算根据选择的选项卡创建条件过滤器。可以删除两个导航栏之间的空间吗？

此外，可以删除为标题保留的空间吗？我在这里看到了一些类似的问题，但我对CSS非常不好，所以如果有人能告诉我我可以编辑代码的确切位置，那就太棒了。

代码：

library(shiny)
library(shinydashboard)
library(data.table)
library(dplyr)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(width = 325,
               uiOutput("filter")),
  dashboardBody( 
    navbarPage(header="",title=NULL,id="trythis" ,
         tabPanel("BigTab1",
                  navbarPage(title = NULL,id="firstbar",  
                  tabPanel("SubTab1",
                             dataTableOutput("table1")),
                  tabPanel("SubTab2"))),
        tabPanel("BigTab2",
                 navbarPage(title=NULL,id="secondbar",
                   tabPanel("SubTab3",
                            dataTableOutput("table2")),
                   tabPanel("SubTab4")))
        )
)
)

server <- function(input, output){

  output$table1<-renderDataTable({
    data<-filter(mtcars,cyl %in% input$test)
    data.table(data[,1:2])
  },options = list(lengthMenu = c(5, 10, -1), pageLength = 5))

  output$table2<-renderDataTable({
    data<-filter(mtcars,cyl %in% input$test)
    data.table(data[,1:2])
  },options = list(lengthMenu = c(5, 10, -1), pageLength = 5))

  output$filter<-renderUI({
    if(input$trythis=="BigTab1"){
    selectInput("test","Test",choices =    c("4","6","8"),selected=c("4","6"),multiple = TRUE)
    }else{
      selectInput("test","Test",choices = c("4","6","8"),multiple = FALSE)

    }
  })
}
shinyApp(ui = ui, server = server)

我想删除红色，比其他人更担心栏之间的空间，但是当你缩小窗口时，导航栏上的标题空间也很糟糕。在此先感谢您的帮助！