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