如何使R DataTables列宽度取决于单元素内容宽度？

Question

我知道您可以使用选项手工调整宽度。沿线的内容：

DT::datatable(mtcars,
              options = list(
                  autoWidth = TRUE,
                  columnDefs = list(list(width = '70px', 
                                         targets = which(colnames(mtcars) %in% c("gear"))),
                                    list(width = '100px', 
                                         targets = which(colnames(mtcars) %in% c("disp", "hp")))
                  )
              )
)

我认为没有方法可以调整列宽度以拟合内容，而没有硬编码值。我找到了一个dataTables函数 columns.adjustss.adjust（）从理论上重新调整列宽度以输入，但是如何在R / R中使用它？

MRE：

library(shiny)
library(DT)

ui <- fluidPage(
  DT::dataTableOutput(outputId = "table")
)

server <- function(input, output) {

  output$table <- DT::renderDataTable({
    DT::datatable(mtcars,
                options = list(
                    autoWidth = TRUE, # here we set fixed width. how to set depending on input?
                    columnDefs = list(list(width = '70px', 
                                           targets = which(colnames(mtcars) %in% c("gear"))),
                                      list(width = '100px', 
                                         targets = which(colnames(mtcars) %in% c("disp", "hp")))
                    )
                )
  )
  })
}

shinyApp(ui, server)