Extra SQL-like functions for dplyr

sql-like.R

# Symmetrical set-difference
# from: https://github.com/tidyverse/dplyr/issues/4811
symdiff <- function(x, y) {
  setdiff(union(x, y), intersect(x, y))
}

# Inserting join
# from: https://github.com/tidyverse/dplyr/issues/1275
insert <- function(data, insertData, by) {
  data %>%
    dplyr::anti_join(insertData, by = by) %>%
    dplyr::bind_rows(insertData) %>%
    dplyr::arrange_(.dots = by)
}

# Symmetrical anti-join
sym_anti_join <- function (x, y, by = NULL, copy = FALSE, ...) {
  x_only <- anti_join(x, y, by = by, copy = copy, ...)
  y_only <- anti_join(y, x, by = by, copy = copy, ...)
  bind_rows(x_only, y_only)
}