# NOT RUN {
data_1 <- tibble::tibble(a = c(1, 2, 1), b = c(1, 4, 1), c = c(5, 6, 7))
data_2 <- tibble::tibble(a = c(1, 2, 3), b = c(4, 5, 6), c = c(7, 8, 9))
# this is passing:
check_if_subset(data_1, a, data_2, a)
# this is failing:
try(check_if_subset(data_2, a, data_1, a))
# }
Run the code above in your browser using DataCamp Workspace