R/zzz.R

In friendlynumber: Translate Numbers into Number Words

.onLoad <- function(libname, pkgname) {
  opts <- options()
  friendlynumber_opts <- friendlynumber_default_options()
  set_opts_at <- !(names(friendlynumber_opts) %in% names(opts))
  if (any(set_opts_at)) options(friendlynumber_opts[set_opts_at])
  invisible()
}