The following is code that adds interactive data to figure 3:

Adding information to image
Set up data
x.lbls=as.data.frame(list(xLabels.xy.type= c("image.box", "image.box"), xLabels.1 = c("X.1", "X.2")))
y.lbls=as.data.frame(list(y.Lables = c("Y.1", "Y.2", "Y.3")))
xy.lbls=list(XY.label = matrix(c("image.box1","image.box2", "image.box3","image.box4","image.box5","image.box6"),ncol=2))
x.links=as.data.frame(list(X.links.1 = c("http://www.buffalo.edu, http://bioinformatics.buffalo.edu", NA)))
y.links=as.data.frame(list(Y.links.1 = c(NA, "http//www.buffalo.edu", NA)))
xy.links=list(XY.link.code = matrix(rep("code.html/codeFigure3.html, code.html/initializeObject.html",6), ncol=2),
                     XY.link.interactive = matrix(rep("code.html/image.interactive.html, code.html/interactiveFigure3.html",6), ncol=2),
                     XY.link.completeCode = matrix(rep("code.html/completeCodeFigure3.html, code.html/completeCode.html",6), ncol=2))

Add to object
Splot = makeImap(Splot, figure=3, xy.type="image.box", x.pos= c(.5,1.5,2.5), y.pos=c(.5,1.5,2.5,3.5),
                              x.labels = x.lbls, y.labels = y.lbls, xy.labels=xy.lbls,
                              x.links=x.links, y.links=y.links, xy.links=xy.links,
                              fname.root="sendPlotEx", bb.cex=5, spot.radius=10)