orders <- data.frame(id = c(1, 2, 2, 3), value = 1:4)
customers <- data.frame(id = c(1, 2, 4), name = c("A", "B", "D"))
# Quick check
key_check(orders, customers, by = "id")
# Silent check
is_ok <- key_check(orders, customers, by = "id", warn = FALSE)
Run the code above in your browser using DataLab