当标题被禁用时，Shinydashboard 删除额外的空间

Question

整个代码/文件可以在这个答案中找到

UI.R file
library(shiny)
library(shinydashboard)
shinyUI( 
  dashboardPage(
    dashboardHeader(disable = TRUE), #title=textOutput("title")),
    dashboardSidebar(uiOutput("side")),
    dashboardBody(
          uiOutput("page")
    )))

但是，我想在我的仪表板中禁用标题，在此处的帮助下，我设法禁用了但随后在我的仪表板中添加了一些空白。（见图片，橙色高亮框）。

我怎样才能摆脱这个？这不仅在登录页面上，即使登录后问题仍然存在。

Answer 1

我认为它是闪亮仪表板上缺少的功能，可以自动将标题的高度添加到正文中。我使用 JavaScript 用一个技巧修复了它。解决方案是min-height在创建页面后将50px 添加到body的 CSS属性。如果窗口大小发生变化，我还添加了一个事件侦听器以添加 50px。

library(shiny)
library(shinydashboard)

server <- function(input, output) {
}
ui <- dashboardPage(
  dashboardHeader(disable = TRUE),
  dashboardSidebar(),
  dashboardBody(
    tags$script('window.onload = function() {
      function fixBodyHeight() {
        var el = $(document.getElementsByClassName("content-wrapper")[0]);
        var h = el.height();
        el.css("min-height", h + 50 + "px");
      };
      window.addEventListener("resize", fixBodyHeight);
      fixBodyHeight();
    };')
  )
)

shinyApp(ui, server)