purrr::reduce(x, dplyr::full_join)
#> Joining, by = "r1"
#> Error: `by` must be supplied when `x` and...:
purrr::reduce(x2, dplyr::full_join)
#> Joining, by = "r1"
#> Error: `by` must be supplied when `x`...and `y` have no common variables.
#> ℹ use by = character()` to perform a cross-join.
purrr::reduce(x2...purrr::reduce(x, merge)[, c("r1", "r2", "r3", "r4", "r5")]
#> r1 r2 r3 r4 r5
#> 1 S2 S1 S1 S2 S1
#>...= 0)
if (any(ri)) {
purrr::map2(check_list[ri], common[ri], .f = function(x, y) {
if (!