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