#' @export
identifyPoints<-function(dat,X='X',Y='Y',tl=.25){
x<-as.vector(unlist(dat[X]))
y<-as.vector(unlist(dat[Y]))
rows<-identify(x,y,tol=tl)
dat[rows,]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.