f1 <- flat_table('ft_num', ft_cause_rpd) |>
as_star_database(mrs_cause_schema_rpd)
f2 <- flat_table('ft_num2', ft_cause_rpd) |>
update_according_to(f1)
st <- f2 |>
get_star_database()
db1 <- star_database(mrs_cause_schema, ft_num) |>
snake_case()
db2 <- star_database(mrs_age_schema, ft_age) |>
snake_case()
ct <- constellation("MRS", db1, db2)
names <- ct |>
get_fact_names()
st <- ct |>
get_star_database(names[1])
Run the code above in your browser using DataLab