Nothing
GetOrder <- function(df){
ord <- as.list( order( apply( df[!duplicated(df),], 1, paste, collapse="" ) ) )
names(ord)<-apply(df[!duplicated(df),],1,paste,collapse="")
uniq <- apply( df, 1, function(x) ord[[ paste0(x,collapse="") ]] )
cbind(df, uniq )
}
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.