如何使用htmltools::attachDependencies？

Question

Here是我如何“手动”向datatable添加HTML依赖项的一个例子。这个很好用。当我尝试使用attachDependencies时，不附加依赖项。

library(DT)
library(htmltools)

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

dat <- iris

datatable(
  dat,
  options = list(
    colResize = list()
  )
) %>% attachDependencies(dep, append = TRUE)

为什么这个代码不起作用？

Answer 1

我不认为这和你使用它的方式有任何关系。函数attachDependencies()将对象作为属性添加，而不是作为依赖项添加：

function (x, value, append = FALSE) 
{
    value <- asDependencies(value)
    if (append) {
        old <- attr(x, "html_dependencies", TRUE)
        htmlDependencies(x) <- c(old, value)
    }
    else { htmlDependencies(x) <- value }
    return(x)
}

但是，如果没有这个函数，您仍然可以在一行而不是三行中添加依赖项。我知道这不是你想要的，但这是个选择。

dtable$dependencies <- append(dtable$dependencies, list(dep))

以我为例：

dep <- htmlDependency(
  name = "colResize", version = "1.6.1", 
  src = c(href = "https://cdn.jsdelivr.net/gh/dhobi/datatables.colResize/"),
  script = "jquery.dataTables.colResize.js",
  stylesheet = "jquery.dataTables.colResize.css",
  all_files = FALSE)

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

dtable$dependencies <- append(dtable$dependencies, list(dep))

dtable

​

​