在闪亮的仪表板中禁用dashboardHeader() 后删除它使用的空间

如何解决在闪亮的仪表板中禁用dashboardHeader() 后删除它使用的空间

我在下面的闪亮仪表板中禁用了 dashboardHeader()。问题是标题使用的空间仍然是空白的，因此我添加的所有其他对象都没有显示在屏幕的最高点。

library(shiny)
library(shinydashboard)
library(shinydashboardplus)
library(shinyjs)


dbHeader <- dashboardHeaderPlus(disable = TRUE
                                
                                
)
shinyApp(
  ui = dashboardPagePlus(
    header = dbHeader,sidebar = dashboardSidebar(width = "0px",sidebarMenu(id = "sidebar" # id important for updateTabItems
                                           
                               )          ),body = dashboardBody(
      
      
      useShinyjs(),tags$script(HTML("$('body').addClass('fixed');")),tags$li(a(
        
        div(style="display: inline;padding: 0px 0px 0px 0px;vertical-align:top; width: 150px;",actionButton("res","Results",style=" background-color: #faf0e6; border-color: #faf0e6"))
      ),class = "dropdown"),)
    
  ),server<-shinyServer(function(input,output,session) { 
    hide(selector = "body > div > header > nav > a")
    
    
    
    
    
  }
  )
)