# NOT RUN {
# Defined by:
library(tidyr)
st_mrs_cause_w11 <- star_schema(mrs_cause_w11, dm_mrs_cause) %>%
snake_case() %>%
character_dimensions(
NA_replacement_value = "Unknown",
length_integers = list(
week = 2,
data_availability_week = 2,
reception_week = 2
)
) %>%
role_playing_dimension(
dim_names = c("when", "when_received", "when_available"),
name = "when_common",
attributes = c("date", "week", "year")
)
# }
Run the code above in your browser using DataLab