Nothing
.onAttach <- function(libname = find.package("MarginalMediation"), pkgname = "MarginalMediation") {
## get potential conflicts and filter out unncessary ones
confs <- search_conflicts() %>%
do.call("rbind", .) %>%
.[(!grepl("%>%", rownames(.))) &
(!grepl("%||%", rownames(.))) &
(.$rowname != ".GlobalEnv"),] %>%
data.frame
if (dim(confs)[1] == 0){
confs_msg <- text_col(paste0(crayon::green(cli::symbol$tick), " No potential conflicts found"))
helper_msg <- ""
} else {
confs_msg <- text_col(paste0(crayon::yellow(cli::symbol$cross),
" The MarginalMediation::", rownames(confs), "() function has the same name as ",
gsub("package:", "", confs$rowname), "::", rownames(confs), " (",
sapply(paste0(gsub("package:", "", confs$rowname), "::", rownames(confs)),
function(x) class(eval(parse(text = x)))[1]), ")\n"))
helper_msg <- text_col(crayon::italic(" Consider using `MarginalMediation::` for each function call."))
}
packageStartupMessage(text_col(cli::rule(left = paste0("MarginalMediation ", MarginalMediation_version("MarginalMediation")),
right = "learn more at tysonbarrett.com")),
text_col(paste0("\n", crayon::green(cli::symbol$tick), " MarginalMediation attached\n")),
confs_msg,
helper_msg)
}
.onLoad <- function(libname = find.package("MarginalMediation"), pkgname = "MarginalMediation"){
if(getRversion() >= "2.15.1") {
utils::globalVariables(".")
}
invisible()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.