r语言 - 仪表板主体不会随着 DT 长度的变化而调整大小

Question

当 DTOutput 显示更多行时，仪表板页面将不会展开。输出是可见的，但看起来不再包含在仪表板页面中。

ui <- function() { 
 dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
   mainPanel(width = 12,
             fluidRow(DTOutput(outputId = "table"))
  )))}
server <- function(input, output) {
 data <- data.frame(1:100)
 output$table <- renderDT(
  data
 )
}
shinyApp(ui = ui, server = server)

问题的屏幕截图。

仪表板页面的灰色背景在第 15 行结束。

Answer 1

这可以通过向文档添加一些 CSS 来修复：

section.content { 
  overflow-y: hidden; 
}

女工程师：

library(shiny)
library(shinydashboard)
library(DT)
library(htmltools)
ui <- function() { 
  dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      tags$head(tags$style("section.content { overflow-y: hidden; }")),
      mainPanel(width = 12,
                fluidRow(DTOutput(outputId = "table"))
      )))}
server <- function(input, output) {
  data <- data.frame(1:100)
  output$table <- renderDT(
    data
  )
}
shinyApp(ui = ui, server = server)