db1 <- star_database(mrs_cause_schema, ft_num) |>
snake_case()
db2 <- star_database(mrs_age_schema, ft_age) |>
snake_case()
ct1 <- constellation("MRS", db1, db2)
db3 <- star_database(mrs_cause_schema_rpd, ft_cause_rpd) |>
role_playing_dimension(
rpd = "When",
roles = c("When Available", "When Received")
)
db4 <- star_database(mrs_age_schema_rpd, ft_age_rpd) |>
role_playing_dimension(
rpd = "When Arrived",
roles = c("When Available")
)
ct2 <- constellation("MRS", db3, db4)
Run the code above in your browser using DataLab