R Shiny Dashboard DataTable 列宽

Question

我正在构建一个 Shiny 仪表板，仪表板上的一个面板是 DataTable。

下面是我的代码：

  output$table = DT::renderDataTable(b1, selection = 'single')

数据表中的列宽现在根据列名的宽度进行调整。但是，某些单元格值是文本，并且这些文本被压缩以显示在多行中，因为它们比列名称长。

我想知道是否有办法调整列宽以适应一行中的单元格值。

或者，有没有办法为列设置固定宽度并通过悬停来获取单元格值的全部内容？

提前致谢。

Answer 1

您可以使用该ellipsis插件来限制单元格的可见字符数，并在工具提示中包含单元格的完整内容。

library(DT) 

dat <- data.frame(
  A = c("fnufnufroufrcnoonfrncacfnouafc", "fanunfrpn frnpncfrurnucfrnupfenc"),
  B = c("DZDOPCDNAL DKODKPODPOKKPODZKPO", "AZERTYUIOPQSDFGHJKLMWXCVBN")
)

datatable(
  dat, 
  plugins = "ellipsis",
  options = list(
    # limit cells in columns 1 and 2 to 17 characters
    columnDefs = list(list(
      targets = c(1,2),
      render = JS("$.fn.dataTable.render.ellipsis( 17, false )")
    ))
  )
)