有光泽的 - 将dataTableOutput调整为窗口大小

Question

我试图让输出表自动改变窗口大小的大小。目前，该表将调整列宽到窗口，因此列变宽。我希望它调整，以便字体大小增加和减少，以适应窗口。类似于http://shiny.rstudio.com/gallery/datatables-demo.html的东西。

这是一些简单的代码：

ui <-  function() { 
  fluidPage(DT::dataTableOutput("table"))
}

server <- function(input, output, session) {
  output$table <- DT::renderDataTable({
    DT::datatable(matrix(1:25, ncol = 5))})
}

shinyApp(ui = ui, server = server)