How to use htmltools::attachDependencies? - r

Question

Here is an example of how I "manually" add a HTML dependency to a datatable. This works fine. When I try with attachDependencies, the dependency is not attached.
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)
Why does this code not work?

Answer 1

I don't think it has anything to do with the way you're using it. The function attachDependencies() adds the object as an attribute, not as a dependency:
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)
}
However, without this function, you could still add your dependency in one line instead of three. I know that's not what you're looking for, but it's an option.
dtable$dependencies <- append(dtable$dependencies, list(dep))
With my example:
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