r - 禁用标题时，Shinydashboard 会删除多余的空间

Question

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

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

但是，我想在 here 的帮助下禁用仪表板中的标题。我设法禁用，但随后我的仪表板中添加了一些空白区域。 (参见图片，橙色突出显示的框)。

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

Answer 1

我认为 Shiny 仪表板上缺少自动将标题高度添加到正文的功能。我用 JavaScript 的技巧修复了这个问题。解决方案是在创建页面后将 50px 添加到 body 的 CSS min-height 属性中。此外，我还添加了一个事件监听器，以便在窗口大小发生变化时添加 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)