Nothing
setDiff <- function(new, old){
if(setequal(new,old)){
D <- ""
} else {
new_old <- union(new, old)
plus <- setdiff(new_old, old)
if(length(plus)!=0) plus <- paste("+", paste(plus, collapse = " + "), sep = " ")
minus <- setdiff(new_old, new)
if(length(minus) != 0) minus <- paste("-", paste(minus, collapse = " - "), sep = " ")
D <- paste(plus, minus, sep = " ")
}
D
}
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.