在基于闪亮的网页中显示数据表的鸟瞰图

Question

最终目的是显示页面中的所有列和行而不滚动，甚至使表格更小（如放大）。因为我想看看这张桌子的鸟瞰图，而不关心桌子上的数字。谢谢。

一步可以在基于闪亮的DT :: datatable中垂直显示colnames，因为它们占用了大量空间，但我仍然不知道如何实现它。

代码：

library(shiny)
library(ggplot2)
shinyApp(
ui = fluidPage(DT::dataTableOutput('tbl')),
server = function(input, output) {
    output$tbl = DT::renderDataTable(
        DT::datatable({cbind(mpg, mpg, mpg)}, 
             options = list(paging = FALSE))

    )
}
)