sq <- mrs_db |>
star_query() |>
select_dimension(name = "where",
attributes = c("city", "state")) |>
select_dimension(name = "when",
attributes = "year") |>
select_fact(
name = "mrs_age",
measures = "all_deaths",
agg_functions = "MAX"
) |>
select_fact(
name = "mrs_cause",
measures = c("pneumonia_and_influenza_deaths", "all_deaths")
) |>
filter_dimension(name = "when", week <= " 3") |>
filter_dimension(name = "where", city == "Bridgeport")
mrs_db_2 <- mrs_db |>
run_query(sq)
Run the code above in your browser using DataLab