# Defined by:
st_mrs_age_w10 <- star_schema(mrs_age_w10, dm_mrs_age) |>
role_playing_dimension(
dim_names = c("when", "when_available"),
name = "When Common",
attributes = c("date", "week", "year")
) |>
snake_case() |>
character_dimensions(NA_replacement_value = "Unknown",
length_integers = list(week = 2))
Run the code above in your browser using DataLab