用于填充mainPanel的Shinydashboard tabBox

Question

有没有一种简单的方法可以让下面的tabBox跨越dashboardBody的整个高度

app_ui <- function() {

    shinydashboard::dashboardPage(
      shinydashboard::dashboardHeader(title = "Baseball Statistics"),
      
      shinydashboard::dashboardSidebar(
        width = 250
      ),
      
      shinydashboard::dashboardBody(
        shinydashboard::box(title = "Individual"),
        shinydashboard::tabBox(title = "Stats",
                               shiny::tabPanel("Batting", DT::DTOutput("batting")),
                               shiny::tabPanel("Pitching", DT::DTOutput("pitching")),
                               shiny::tabPanel("Fielding", DT::DTOutput("fielding"))
                               )
      )
    )
}

我希望datatable占据尽可能多的垂直屏幕：

​

​

以下回答不成功- Shinydashboard Tabbox Height

我尝试通过以下方式集成上面的答案：

      shinydashboard::dashboardBody(
        shinydashboard::box(title = "Individual"),
        shinydashboard::tabBox(title = "Stats",
                               shiny::tags$head(
                                 shiny::tags$style(shiny::HTML(" #tabBox { height:90vh !important; } "))
                               ),
                               id="tabBox",
                               shiny::tabPanel("Batting", DT::DTOutput("batting")),
                               shiny::tabPanel("Pitching", DT::DTOutput("pitching")),
                               shiny::tabPanel("Fielding", DT::DTOutput("fielding"))
                               )
      )

输出如下所示：

​

​

Answer 1

这可能取决于其他DT选项。

仅使用scrollX选项时

  output$batting <- renderDT(iris, 
                             options = list( scrollX = TRUE))

我得到了

​

Answer 2

这是我的最后一次尝试，似乎其他的事情都没有成功，所以：

  output$dataset <- DT::renderDT(dataframes$df.response,
    callback = JS(js),
    filter = "top",
    rownames = FALSE,
    selection = list(target = "row+column"),
    extensions = c("ColReorder"),
    options = list(
      # scrollX = TRUE,
      # lengthMenu = c(15, 50, 100, 200, 500),
      # colReorder = list(realtime = FALSE),
      pageLength = 1000,
      scrollY=TRUE
   )
  )

将pagelength元素添加到您的数据集的最大行数，它将在加载时完全显示它。如此屏幕所示：

。这对您来说是一种可行的变通方法吗？