# NOT RUN {
airports
if (require("dplyr")) {
airports %>% rename(dest = faa) %>% semi_join(flights)
flights %>% anti_join(airports %>% rename(dest = faa))
airports %>% rename(origin = faa) %>% semi_join(flights)
}
# }
Run the code above in your browser using DataLab