R Shiny 中 box() 内的 dataTable 输出：大小调整不是反应性的

Question

我的 R Shiny 应用程序中的 box() 中有一个数据表。

当我更改页面大小时，数据表的大小不会更改以保持在其框中。我在同一个框中的绘图输出调整大小没有问题，但数据表却有问题。

关于固定数据表宽度的想法？

这里有一些使用 R 的 mpg 数据集的代码来演示我的 UI 问题。尝试调整窗口的大小以查看我所指的大小问题。

library(shiny)
library(shinydashboard)
library(data.table)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(width = 325),
  dashboardBody( 
    fluidPage(
      box( width = 12,
           tabsetPanel(
             tabPanel("Summary",
                      dataTableOutput("coeffTable"))
           )         
      )
    )))

server <- function(input, output){
  data<-mpg

 output$coeffTable<-renderDataTable({
    data.table(data[,1:2])
   },options = list(lengthMenu = c(5, 10, -1), pageLength = 5))

}
shinyApp(ui = ui, server = server)

Answer 1

这适用于

DT

包。像这样使用：

library(DT)

output$coeffTable <- DT::renderDataTable({...

DT::dataTableOutput("coeffTable")