tests/zzz.R

## .on(Load|Unload) ####################################################

nsLoaded <- function() any("epigrowthfit" == loadedNamespaces())
soLoaded <- function() any("epigrowthfit" == names(getLoadedDLLs()))

loadNamespace("epigrowthfit")
stopifnot(nsLoaded(), soLoaded())
unloadNamespace("epigrowthfit")
stopifnot(!nsLoaded(), !soLoaded())
davidearn/epigrowthfit documentation built on Feb. 22, 2025, 12:44 p.m.