R/zzz.R

In nk027/bvar: Hierarchical Bayesian Vector Autoregression

.onLoad <- function(...) {

  register_s3("coda", "as.mcmc", "bvar")
  register_s3("coda", "as.mcmc", "bvar_chains")
  register_s3("vars", "irf", "bvar")
  register_s3("vars", "irf", "bvar_irf")
  register_s3("vars", "fevd", "bvar")
  register_s3("vars", "fevd", "bvar_irf")
  register_s3("vars", "fevd", "bvar_fevd")

  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))
  })
}