Nothing
plotbary.slide<-function(tt)
{
d<-dim(tt$center)[1]
coordi<-1
plotbary(tt,paletti=seq(1:1000),coordi=coordi)
loc<-locator(1)
while (loc$y>=0){
if (coordi==d) coordi<-1 else coordi<-coordi+1
plotbary(tt,paletti=seq(1:1000),coordi=coordi)
loc<-locator(1)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.