R/joins.R

In epijim/admiral: ADaM in R Asset Library

anti_join <- function(x, y, by = NULL, copy = FALSE, ...) {
  suppress_warning(
    dplyr::anti_join(x, y, by = by, copy = copy, ...),
    "^Column `.+` has different attributes on LHS and RHS of join$"
  )
}

inner_join <- function(x, y, by = NULL, copy = FALSE, suffix = c(".x", ".y"), ...) {
  suppress_warning(
    dplyr::inner_join(x, y, by = by, copy = copy, suffix = suffix, ...),
    "^Column `.+` has different attributes on LHS and RHS of join$"
  )
}

left_join <- function(x, y, by = NULL, copy = FALSE, suffix = c(".x", ".y"), ...) {
  suppress_warning(
    dplyr::left_join(x, y, by = by, copy = copy, suffix = suffix, ...),
    "^Column `.+` has different attributes on LHS and RHS of join$"
  )
}