cfitOptions <- function() {
bin <- findCfitBinary(quote=FALSE);
suppressWarnings({
bfr <- system2(bin, stderr=TRUE)
});
bfr <- paste(bfr, collapse="\n");
message(bfr);
} # cfitOptions()
###########################################################################
# HISTORY:
# 2013-10-08
# o Added cfitOptions().
###########################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.