闪亮的DataTables，调整一列的宽度或填充

Question

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)
  }
))

如果我想让第一列更宽，我该怎么办？

我“检查”了结果，发现我真正想要的是

这要改变。 我知道它与编写Javascript代码有关，但我在这里找到的唯一其他答案是，如果你想更改每个列，我不知道javascript足以修改它而无需调试。作为参考，该代码看起来像这样

output$ex1 <- renderDataTable(iris,
                                  option = list( drawCallback = I("function( settings ) {document.getElementById('ex1').style.width = '600px';}")) )

这可能非常接近......？

如果有一种更简单的方法可以在没有JS的情况下做到这一点，而不仅仅是欢迎！

编辑：看起来像以这种方式调整“宽度”对我的实际数据不起作用，但是从style="width: 300px;"改变它的工作原理是什么 至 style="width: 300px;padding-right: 200px;" 所以这可能更好......