R/zzz.R

In Rdimtools: Dimension Reduction and Estimation Methods

.onAttach <- function(...){
  ## Retrieve Year Information
  date <- date()
  x <- regexpr("[0-9]{4}", date)
  this.year <- substr(date, x[1], x[1] + attr(x, "match.length") - 1)

  # Retrieve Current Version
  this.version = packageVersion("Rdimtools")

  ## Print on Screen
  packageStartupMessage("** ------------------------------------------------------- **")
  packageStartupMessage("** Rdimtools || Dimension Reduction and Estimation Toolbox")
  packageStartupMessage("**")
  packageStartupMessage("** Version    : ",this.version,"       (",this.year,")",sep="")
  packageStartupMessage("** Maintainer : Kisung You  (kisungyou@outlook.com)")
  packageStartupMessage("** Website    : https://kisungyou.com/Rdimtools/")
  packageStartupMessage("**")
  packageStartupMessage("** Please see 'citation('Rdimtools)' to cite the package. ")
  packageStartupMessage("** ------------------------------------------------------- **")
}

.onUnload <- function(libpath) {
  library.dynam.unload("Rdimtools", libpath)
}