db <-
flat_table('ft_num', ft_cause_rpd[ft_cause_rpd$City != 'Cambridge' &
ft_cause_rpd$WEEK != '4',]) |>
as_star_database(mrs_cause_schema_rpd) |>
role_playing_dimension(rpd = "When",
roles = c("When Available", "When Received"))
f2 <- flat_table('ft_num2', ft_cause_rpd[ft_cause_rpd$City != 'Bridgeport' &
ft_cause_rpd$WEEK != '2',])
f2 <- f2 |>
update_according_to(db)
db <- db |>
incremental_refresh(f2)
Run the code above in your browser using DataLab