rs <- relation_schema(
list(
a_b_c = list(c("a", "b", "c", "d"), list(c("a", "b", "c"))),
a_b = list(c("a", "b", "d"), list(c("a", "b"), c("b", "d")))
),
letters[1:4]
)
autoref(rs, single_ref = FALSE)
autoref(rs, single_ref = TRUE)
Run the code above in your browser using DataLab