s <- star_schema() |>
define_dimension(
name = "when",
attributes = c(
"Week Ending Date",
"WEEK",
"Year"
)
)
s <- star_schema()
d <- dimension_schema(
name = "when",
attributes = c(
"Week Ending Date",
"WEEK",
"Year"
)
)
s <- s |>
define_dimension(d)
Run the code above in your browser using DataLab