R/chebpol.R

In sgaure/chebpol: Multivariate Interpolation

.onAttach <- function(libname,pkgname) {
  if(!havefftw()) {
    packageStartupMessage("*** ",pkgname,": FFTW not used.\n*** You should install it from http://fftw.org\n*** or check if your OS-distribution provides it, and recompile.")
  }
}

.onLoad <- function(libname,pkgname) {
  if(is.na(thr <- as.integer(Sys.getenv('CHEBPOL_THREADS')))) thr <- 1L
  options(chebpol.threads=thr)
}

deprecated <- function(fun,...) {
    realfun <- eval(parse(text=paste('quote(chebpol:::',fun,'.real)',sep='')))
    .Deprecated('ipol','chebpol',old=fun)
    mc <- match.call(expand.dots=TRUE)
    mc[[1L]] <- realfun
    mc <- mc[-2]
    eval.parent(mc)
}