items <- list(
table_1 = ~region * sector2,
table_2 = ~region1:sector4 - 1,
table_3 = ~region + sector4 - 1
)
variable_mapping <- list(
table_3 = c("z", "y"),
table_1 = c("value", "x"),
table_2 = c("value", "x", "y")
)
filter_by_variable("value", items, variable_mapping)
filter_by_variable("y", items, variable_mapping)
filter_by_variable("nonexistent", items, variable_mapping)
names_by_variable("value", variable_mapping)
names_by_variable("y", variable_mapping)
names_by_variable("nonexistent", variable_mapping)
Run the code above in your browser using DataLab