if (require("dplyr")) {
airports
airports %>% mutate(dest = faa) %>% semi_join(flights)
flights %>% anti_join(airports %>% mutate(dest = faa))
airports %>% mutate(origin = faa) %>% semi_join(flights)
}
Run the code above in your browser using DataCamp Workspace