R/check_packages.R

In ropenscilabs/checkers: checkers

 # check_xml <- make_pref_pkg_check("XML", "xml2")
 # goodpractice::gp("inst/scripts", checks="XML", extra_preps=list(packages=prep_packages), extra_checks = list(XML = check_xml))

#' @export
prep_packages = make_prep("packages", function(path, quiet) {
  packrat:::dirDependencies(path)
  })

#' @export
make_pref_pkg_check <- function(unfavored, favored) {

  make_check(
    description = paste0("Unfavored packages:",
                         paste(unfavored, collapse=", ")),
    tags = character(0),
    preps = c("packages"),

    gp = function(state) {
      paste0(
        "Use preferred packages. ", favored, " is preferred to ",
        paste0(unfavored, collapse = ", "), ".")
    },
    check = function(state) {
      !(unfavored %in% state$packages)
    }
  )
}