intersect.all <- function(lists) {
intersecting <- NA
for (name in names(lists)) {
if ((!is.na(intersecting))[1]) {
intersecting <- intersect(intersecting, lists[[name]])
} else {
intersecting <- lists[[name]]
}
}
intersecting
}