R/zzz.R

In pierucci/heemod: Markov Models for Health Economic Evaluations

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.heemod <- list(
    heemod.verbose = FALSE,
    heemod.memotime = 3600,
    heemod.inf_parameter = "stop"
  )
  toset <- !(names(op.heemod) %in% names(op))
  if(any(toset)) options(op.heemod[toset])
  
  invisible()
}