R 禁用 dashboardSidebar 时闪亮的填充针控制栏

Question

我有一个带有更高标题的 R Shiny 仪表板（wel title cause the logo is set to height = "55px"）......但是控制栏的引脚比标题下方。如何解决这个问题？这对于禁用的 dashboardSidebar

尤其重要

library(shiny)
library(shinydashboard)

ui <- 
  dashboardPage(
    title = "Test",
    header = dashboardHeader(
      title = a(target="_blank", href = 'https://www.google.com',
                img(src = 'https://img.freepik.com/free-icon/search_318-265146.jpg', title = "Test", height = "55px"),
                style = "padding-top:10px; padding-bottom:10px; padding-left:10px;")
    ),
    sidebar = dashboardSidebar(disable = T),
    body = bs4DashBody(),
    controlbar =   dashboardControlbar(
      width = 300,
      pinned  = T,
    )
  )
  
  server <- function(input, output) {}
  
  shinyApp(ui, server)