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())

Try the epigrowthfit package in your browser

Any scripts or data that you put into this service are public.

epigrowthfit documentation built on April 3, 2025, 10:51 p.m.