.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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.