R/zzz.R

In mclust: Gaussian Mixture Modelling for Model-Based Clustering, Classification, and Density Estimation

# .onLoad <- function(libname, pkgname) 
# {
#   library.dynam("mclust", pkgname, libname)
# }

mclustStartupMessage <- function()
{
# Startup message obtained as 
# > figlet -f slant MCLUST
#   msg <- c(paste0(
# "    __  ___________    __  _____________
#    /  |/  / ____/ /   / / / / ___/_  __/
#   / /|_/ / /   / /   / / / /\\__ \\ / /   
#  / /  / / /___/ /___/ /_/ /___/ // /    
# /_/  /_/\\____/_____/\\____//____//_/    version ", 
#
# Startup message obtained as 
# > figlet -f slant mclust
  msg <- c(paste0(
"                   __           __ 
   ____ ___  _____/ /_  _______/ /_
  / __ `__ \\/ ___/ / / / / ___/ __/
 / / / / / / /__/ / /_/ (__  ) /_  
/_/ /_/ /_/\\___/_/\\__,_/____/\\__/   version ", 
packageVersion("mclust")),
"\nType 'citation(\"mclust\")' for citing this R package in publications.")
  return(msg)
}

.onAttach <- function(lib, pkg)
{
  # unlock .mclust variable allowing its modification
  unlockBinding(".mclust", asNamespace("mclust")) 
  # startup message
  msg <- mclustStartupMessage()
  if(!interactive())
    msg[1] <- paste("Package 'mclust' version", packageVersion("mclust"))
  packageStartupMessage(msg)      
  invisible()
}