# NOT RUN {
nycflights_dm <- dm(
planes = nycflights13::planes,
flights = nycflights13::flights
)
nycflights_dm %>%
dm_draw()
nycflights_dm %>%
dm_add_pk(planes, tailnum) %>%
dm_add_fk(flights, tailnum, planes) %>%
dm_draw()
# }
# NOT RUN {
dm_nycflights13(cycle = TRUE) %>%
dm_rm_fk(flights, dest, airports) %>%
dm_draw()
# }
Run the code above in your browser using DataLab