R/onAttach.R

In Compositional: Compositional Data Analysis

.onAttach <- function(lib, pkg) {
	version <- read.dcf(file.path(lib, pkg, "DESCRIPTION"),"Version")
	packageStartupMessage(paste("\n",pkg["name"],": ",version,sep = ""))
	msg <-  paste(
		r"(  _ _ _ _)",
		r"( /   _ _ _\)",
		r"(/  /)",
		r"(| |           _ _ _ _     _    _     _ _ _ _    _ _ _ _    _ _ _ _    _      _      _    _ _ _ _    _ _ _ _    _ _ _ _      _)",
		r"(| |          |  _ _  |   / \  / \   |  _ _  |  |  _ _  |  |  _ _ _/  |_|   _| |_   |_|  |  _ _  |  /  _ _  \  /  _ _  \    | |)",
		r"(| |          | |   | |  |   \/   |  | |   | |  | |   | |  |_ _ _  |   _   |_   _|   _   | |   | |  | |   | |  | |   | |    | |)",
		r"(\  \ _ _ _   | |_ _| |  | |\__/| |  | |_ _| |  | |_ _| |   _ _ _| |  | |    | |_   | |  | |_ _| |  | |   | |  | |_ _| \_   | |)",
		r"( \_ _ _ _ /  |_ _ _ _|  |_|    |_|  |  _ _ _|  |_ _ _ _|  /_ _ _ _|  |_|    |_ _\  |_|  |_ _ _ _|  |_|   |_|  \_ _ _ _ _/  |_|)",
		r"(                                    | |)",
		r"(                                    |_|)",
	sep="\n")
	packageStartupMessage(msg)
}