1## covr: skip=all 2.onLoad <- function(libname, pkgname) { 3 ## Memoize: Already here, when the package is loaded, record whether 4 ## some packages are 'base' packages or not. 5 ## Packages that most likely are 'base' packages: 6 pkgs <- c("base", "compiler", "datasets", "graphics", "grDevices", "grid", 7 "methods", "parallel", "splines", "stats", "stats4", "tcltk", 8 "tools", "utils") 9 ## This package and other packags already loaded (incl. it's dependencies) 10 pkgs <- c(pkgs, pkgname, loadedNamespaces()) 11 is_base_pkg(pkgs) 12} 13