Nothing
highlight<-function(x1,x2,yrange,col="yellow"){
for(j in 1:NROW(x1)){
polygon(x= c(x1[j],x1[j],x2[j],x2[j]) ,
y= c(yrange,rev(yrange)) ,
col=col,density=NA )
}
}
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.