R/ZZZ.R

In GSIF: Global Soil Information Facilities

# Purpose        : Clean up / closing settings;
# Maintainer     : Tomislav Hengl (tom.hengl@wur.nl);
# Contributions  : ; 
# Status         : pre-alpha
# Note           : for more info see [http://cran.r-project.org/doc/manuals/R-exts.html];

.onLoad <- function(libname, pkgname) {
  data("soil.vars", "soil.legends", "soil.dom", "munsell", "USDA.TT.im", package=pkgname, envir=parent.env(environment()))
}

.onAttach <- function(libname, pkgname)  {
  
  ## print on start-up:
	pkg.info <- drop(read.dcf(file=system.file("DESCRIPTION", package=pkgname, lib.loc=libname), fields=c("Version","Date")))
	packageStartupMessage(paste(pkgname, " version ", pkg.info["Version"], " (", pkg.info["Date"], ")", sep=""))

  ## create env variables:
  GSIF.env(show.env = FALSE)
  packageStartupMessage(paste("URL:", get("project_url", envir = GSIF.opts)))

  return(invisible(0))
  	
}

# end of script;