R/setCustomFindCdf.R

Defines functions setCustomFindCdf

Documented in setCustomFindCdf

setCustomFindCdf <- function(fcn, ...) {
  # Argument 'fcn':
  if (!is.function(fcn)) {
    stop("Argument 'fcn' is not a function: ", mode(fcn))
  }

  settings <- getOption("affxparser.settings")
  if (is.null(settings))
    settings <- list()

  oldFcn <- settings$methods$findCdf
  settings$methods$findCdf <- fcn
  options("affxparser.settings"=settings)

  invisible(oldFcn)
} # setCustomFindCdf()
HenrikBengtsson/aroma.affymetrix documentation built on Feb. 20, 2024, 9:07 p.m.