R/zzz.R

Defines functions .onLoad

.onLoad <- function(libname, pkgname) {
	op <- options()
	op.CAGEfightR <- list(
		CAGEfightR.round = 9,
		CAGEfightR.plus = "cornflowerblue",
		CAGEfightR.minus = "tomato",
		CAGEfightR.unstranded = "hotpink"
	)
	toset <- !(names(op.CAGEfightR) %in% names(op))
	if(any(toset)) options(op.CAGEfightR[toset])

	invisible()
}

Try the CAGEfightR package in your browser

Any scripts or data that you put into this service are public.

CAGEfightR documentation built on Nov. 8, 2020, 5:42 p.m.