R/zzz.R

Defines functions .onLoad

# nocov start
# code adapted from zzz.R of readr
.onLoad <- function(libname, pkgname) {
    opt <- options()
    new_opt <- list(
        NanoMethViz.site_filter = 3L,
        NanoMethViz.highlight_col = "grey50"
    )

    to_set <- ! names(new_opt) %in% names(opt)

    if (any(to_set)) options(new_opt[to_set])
    invisible()
}
# nocov end
Shians/NanoMethViz documentation built on June 8, 2024, 10:48 p.m.