Nothing
setMethodS3("locallyUnique", "default", function(x, ...) {
n <- length(x)
if (n < 2)
return(x)
ok <- c(TRUE, (x[-n] != x[-1]))
x[ok]
})
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.