Zettelkasten

top

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
}