l1 <- list(
r1 = rule(
"first" = c("overwritten", "OVERWRITTEN"),
"almost first" = c(NA, "almost")
),
r2 = rule(
ANYTHING = "anything"
)
)
l2 <- list(
r1 = rule(
"first" = c("F", "f"),
"second" = c("S", "s"),
"third" = c("T", "t"),
.to_NA = "something"
),
r3 = rule(
SOMETHING = "something"
)
)
combine_list_rules(l1, l2)
Run the code above in your browser using DataLab