The following is code that makes each box of the boxplot in figure 1 interactive:
Set up data
xvec = 1:6
yvec = Splot$plot.output[[1]]$stats[3,]
x.lbls = as.data.frame(matrix(c("boxplot.point1","boxplot.point2","boxplot.point3","boxplot.point4","boxplot.point5","boxplot.point6",
                                                  as.character(yvec),
                                                  "not a link", "not a link", "im a link", "im a link", "not a link", "not a link"),
                                              ncol=3))
names(x.lbls) = c("x.Label.1","x.Label.2", "asLinks")
asLinks = c(NA, NA, "code.html/interactiveFigure1.html", "code.html/interactiveFigure1.html", NA, NA)
x.links = as.data.frame(matrix(rep(NA, 18), nrow=6))
x.links[,1] = "code.html/codeFigure1.html, code.html/initializeObject.html"
x.links[,2] = "code.html/boxplot.interactive.html, code.html/interactiveFigure1.html"
x.links[,3] = "code.html/completeCode.html"
names(x.links) = c("code", "interactive", "completeCode")
Add to object
Splot = makeImap(Splot, figure=1, xy.type="points", x.pos=xvec, y.pos=yvec,
x.labels = x.lbls, asLinks = asLinks,
                              
fname.root="sendPlotEx", spot.radius=25)