R/zzz.R

In nloptr: R Interface to NLopt

.onLoad <- function(libname, pkgname) {
  # Set the option to TRUE if it has not been set before.
  if (is.null(getOption('nloptr.show.inequality.warning')))
    options('nloptr.show.inequality.warning' = TRUE)
}

.onUnLoad <- function(libpath) {
  library.dynam.unload("nloptr", libpath)
}