R/zzz.R

In missMethods: Methods for Missing Data

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.missMethods <- list(
    missMethods.warn.too.high.p = TRUE
  )
  toset <- !(names(op.missMethods) %in% names(op))
  if (any(toset)) options(op.missMethods[toset])
}