R/zzz.R

In CenterForAssessment/SGP: Student Growth Percentiles & Percentile Growth Trajectories

`.onLoad` <-
function(libname, pkgname) {
	setDTthreads(1)
}


`.onAttach` <-
function(libname, pkgname) {
	if (interactive()) {
		packageStartupMessage(magenta$bold('SGP',paste(paste0(unlist(strsplit(as.character(packageVersion("SGP")), "[.]")), c(".", "-", ".", "")), collapse=""),' (4-17-2024). For help: >help("SGP") or visit sgp.io'))
	}
}