Nothing
show.map<-function(){
#data(ALINE.map,envir=environment())
show.map<-cbind(apply(data.frame(ALINE.map$U.Val),MARGIN=1,FUN=intToUtf8),ALINE.map,deparse.level=0)
colnames(show.map)[1]<-"IPA"
return(show.map)
}
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.