.onLoad <- function(libname, pkgname) { # nocov start
modules <- paste0("stan_fit4", names(stanmodels), "_mod")
for (m in modules) loadModule(m, what = TRUE)
}
.onAttach <- function(...) {
gfpcaLib <- dirname(system.file(package = "gfpca"))
pkgdesc <- suppressWarnings(utils::packageDescription("gfpca", lib.loc = gfpcaLib))
if (length(pkgdesc) > 1) { # FALSE if called from devtools::document()
builddate <- gsub(';.*$', '', pkgdesc$Packaged)
packageStartupMessage(paste("gfpca (Version ", pkgdesc$Version, ", packaged: ", builddate, ")", sep = ""))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.