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