R Shiny 使 DataTable 列可手动调整大小

Question

请问是否可以让用户通过点击列并拖动来手动调整列宽。 如果是这样，如何？

Answer 1

您可以使用colResize插件来做到这一点。 下载js文件和css文件。 在下面的代码中， path/to/colResize是包含这两个文件的文件夹的路径。 如果您使用绝对路径，则不需要normalizePath 。

library(DT)
library(htmltools)

dep <- htmlDependency(
  name = "colResize", 
  version = "1.6.1", 
  src = normalizePath("path/to/colResize"),
  script = "jquery.dataTables.colResize.js",
  stylesheet = "jquery.dataTables.colResize.css",
  all_files = FALSE
)

dat <- iris

dtable <- datatable(
  dat,
  options = list(
    colResize = list()
  )
) 

deps <- dtable$dependencies
deps <- c(deps, list(dep))
dtable$dependencies <- deps

dtable