Nothing
remove.dup.rows <- function(dfr) {
o <- do.call("order", dfr)
all.dup <- do.call("pmin", lapply(dfr[o, ], function(x) eql(x, c(x[-1], NA))))
all.dup[o] <- all.dup
dfr[!all.dup, ]
}
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.