R/zzz.r

In DattaHub/hslike: Estimations using the Horseshoe-like prior.

.onLoad <- function(libname, pkgname) {
  if (exists(".hslikeStarted", .GlobalEnv)) 
    return()

  invisible(assign('.hslikeStarted', TRUE, pos=.GlobalEnv))
}

.onUnload <- function(libname, pkgname) {
  if (!exists(".hslikeStarted", .GlobalEnv)) 
    return()

  invisible(remove('.hslikeStarted', pos=.GlobalEnv))
}