.pkgenv <- new.env(parent = emptyenv())
.onUnload <- function(libpath) {
library.dynam.unload("oppr", libpath)
}
.onAttach <- function(libname, pkgname) {
# define message generator function
msg <- function() {
packageStartupMessage(cli::rule())
packageStartupMessage(
"You have loaded both oppr and prioritizr - ",
"this is likely to cause serious issues.\n",
"You should only have one of these packages loaded at a time,\n",
"please unload one oppr or prioritizr using one of the commands below:\n",
" detach(\"package:oppr\", unload = TRUE) # unload oppr package\n",
" detach(\"package:prioritizr\", unload = TRUE) # unload prioritizr",
"package\n",
"and then reload the desired package."
)
packageStartupMessage(cli::rule())
}
# print message if prioritizr already loaded
if ("prioritizr" %in% .packages())
msg()
# set hook to print message if prioritizr is loaded later on
setHook(packageEvent("prioritizr", "attach"), function(...) {
msg()
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.