Zettelkasten

top

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