# dput(colnames(mrs_age))
#
# c(
# "Reception Year",
# "Reception Week",
# "Reception Date",
# "Data Availability Year",
# "Data Availability Week",
# "Data Availability Date",
# "Year",
# "WEEK",
# "Week Ending Date",
# "REGION",
# "State",
# "City",
# "Age Range",
# "Deaths"
# )
dm <- dimensional_model() |>
define_dimension(name = "When",
attributes = c("Week Ending Date",
"WEEK",
"Year")) |>
define_dimension(name = "When Available",
attributes = c("Data Availability Date",
"Data Availability Week",
"Data Availability Year")) |>
define_dimension(name = "Where",
attributes = c("REGION",
"State",
"City")) |>
define_dimension(name = "Who",
attributes = c("Age Range"))
Run the code above in your browser using DataLab