R/hooks.R

In gputools: A Few GPU Enabled Functions

Defines functions onLoad onUnload

.onLoad<-function(libname, pkgname){
	e<-emptyenv()
	library.dynam('gputools', pkgname, libname)
	reg.finalizer(e,function(...){unloadNamespace(pkgname)}, onexit=T)
}

.onUnload<-function(libpath){
	library.dynam.unload('gputools', libpath)
}

Try the gputools package in your browser