R/deps.R

In crazycapivara/mapboxer: An R Interface to 'Mapbox GL JS'

#' @importFrom methods getPackageName
read_deps <- function(pkg_name = getPackageName()) {
  system.file("htmlwidgets/deps.yaml", package = pkg_name) %>%
    yaml::read_yaml()
}

use_deps <- function(dep_names) {
  deps <- read_deps()
  if (!all(dep_names %in% names(deps))) {
    stop("available deps [", paste(names(deps), collapse = ", "), "]")
  }

  lapply(deps[dep_names], function(dep) {
    do.call(htmltools::htmlDependency, dep)
  })
}

add_deps <- function(widget, deps) {
  widget$dependencies <- c(widget$dependencies, deps)
  widget
}