example.R

library(dplyr)
library(purrr)

df <- tribble(
  ~x, ~y, 
  "a", "b", 
  "c", "b", 
  "b", "a", 
  "b", "b", 
  "a", "a"
)

target <- tribble(
  ~x, ~y, 
  "a", "b", 
  "c", "b"
)

is_in <- function(x, y, target) {
  any(
    (target[[1]] == x & target[[2]] == y) | (target[[2]] == x & target[[1]] == y)
  )
}

df %>% 
  mutate(test = map2_lgl(x, y, is_in, target = target))