# NOT RUN {
library(dplyr)
nycflights_dm <- dm_nycflights13()
nycflights_dm %>%
dm_rm_pk(airports, rm_referencing_fks = TRUE) %>%
dm_has_pk(planes)
nycflights_dm %>%
dm_rm_pk(planes, rm_referencing_fks = TRUE) %>%
dm_has_pk(planes)
# }
Run the code above in your browser using DataLab