The following is code that makes the polygon of figure 2 interactive:

Set up data
x.links = as.data.frame(matrix(rep(NA, 3), nrow=1))
x.links[,1] = "code.html/codeFigure2.html, code.html/initializeObject.html"
x.links[,2] = "code.html/polygon.interactive.html, code.html/interactiveFigure2.html"
x.links[,3] = "code.html/completeCodeFigure2.html, code.html/completeCode.html"
names(x.links) = c("code", "interactive", "completeCode")

Add to object
Splot = makeImap(Splot, figure=2, xy.type="polygon", x.pos=c(2,2.5,3,2.5), y.pos=c(1,2.5,1,1.5),
                               x.labels = as.data.frame(list(xLabel.xyType = "Polygon")), asLinks="code.html/interactiveFigure2.html",
                               x.links=x.links,fname.root="exToy", bb.cex=5,
                               y.labels = as.data.frame(list(yLabel1.asLinks="Im a link", tooltip.fonttype="san-serif",
                                                                            tooltip.fontsize="30",tooltip.fontcolor="purple" )),
                               font.size=30, font.type="sans-serif", font.color="purple")