intersect2 <- function(...) {
args <- list(...)
if (length(args) < 2) {
return(args)
}
return(intersect(args[[1]], unlist(do.call(intersect2, args[seq(2,length(args))]))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.