.onLoad <- function(libname, pkgname) {
library.dynam("R2SWF", pkgname, libname);
.Call("swfInit", PACKAGE = "R2SWF");
.default.font.paths();
.add.default.fonts();
}
.onUnload <- function(libpath) {
.clean.fonts();
.C("Ming_collectGarbage", PACKAGE = "R2SWF");
library.dynam.unload("R2SWF", libpath);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.