db1 <- star_database(mrs_cause_schema_rpd, ft_cause_rpd) |>
role_playing_dimension(
rpd = "When",
roles = c("When Available", "When Received")
)
db2 <- star_database(mrs_age_schema_rpd, ft_age_rpd) |>
role_playing_dimension(
rpd = "When Arrived",
roles = c("When Available")
)
rpd <- constellation("MRS", db1, db2) |>
get_role_playing_dimension_names()
Run the code above in your browser using DataLab