我希望能够得到一个 DataTable(带有所有排名、搜索和分页功能),它不会完全横跨整个页面,在每列中留出大量的空白...最好是列宽类似于 renderTable 中的“wrap”风格...
我知道可以固定相对列宽,但是我的表将根据所选输入的不同列数动态更新。我希望额外的列扩展到右侧的空白处,如果变得比浏览器窗口宽,则触发水平滚动条。
下面是上述图片中表格的可重现示例...
我知道可以固定相对列宽,但是我的表将根据所选输入的不同列数动态更新。我希望额外的列扩展到右侧的空白处,如果变得比浏览器窗口宽,则触发水平滚动条。
下面是上述图片中表格的可重现示例...
library(shiny)
runApp(list(
ui = navbarPage(
title = 'Tables',
tabPanel('dataTableOutput', dataTableOutput('ex1')),
tabPanel('tableOutput', tableOutput('ex2'))
),
server = function(input, output) {
output$ex1 <- renderDataTable(iris)
output$ex2 <- renderTable(iris)
}
))