R/92_zzz.R

In bsreg: Bayesian Spatial Regression Models

.onLoad <- function(...) {

  register_s3("coda", "as.mcmc", "bm")
  register_s3("coda", "as.mcmc", "bm")
  invisible()
}

register_s3 <- function(pkg, generic, class) {

  fun <- get(paste0(generic, ".", class), envir = parent.frame())
  stopifnot(is.function(fun))

  if(pkg %in% loadedNamespaces()) {
    registerS3method(generic, class, fun, envir = asNamespace(pkg))
  }

  setHook(packageEvent(pkg, "onLoad"), function(...) {
    registerS3method(generic, class, fun, envir = asNamespace(pkg))
  })
}