在 ShinydashboardPlus 中调整左右侧边栏的高度

Question

我想知道是否有办法设置左右边栏 n shinydashboardPlus 的高度。我希望它们更短，例如现在尺寸的一半，以便让 dashboardBody() 覆盖底部下方的整个空间。

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
shinyApp(
   ui = dashboardPage(
     options = list(sidebarExpandOnHover = TRUE),
     header = dashboardHeader(),
     sidebar = dashboardSidebar(minified = TRUE, collapsed = TRUE),
     body = dashboardBody(
     ),
     controlbar = dashboardControlbar(),
     title = "DashboardPage"
   ),
   server = function(input, output) { }
 )