R/zzz.R

In TysonStanley/MarginalMediation: Marginal Mediation

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