R/zzz.R

In oce: Analysis of Oceanographic Data

.onLoad <- function(libname, pkgname)
{
    op <- options()
    opOce <- list(
        oceAbbreviateTimeRange=TRUE,
        oceDebug=0,
        oceDrawTimeRange=TRUE,
        oceEOS="unesco", # or "unesco"
        oceMar=c(3, 3, 2, 2),
        oceMgp=c(2.0, 0.7, 0),
        oceTimeFormat="%Y-%m-%d %H:%M:%S",
        oceTz="UTC",
        oceUnitBracket="[", # or "("
        webtide="/usr/local/WebTide")
    toset <- !(names(opOce) %in% names(op))
    if (any(toset)) {
        options(opOce[toset])
    }
}