# NOT RUN {
data(Violations)
if (require(dplyr)) {
Violations %>%
inner_join(Cuisines, by = "cuisine_code") %>%
filter(cuisine_description == "American") %>%
arrange(grade_date) %>%
head()
}
# }
Run the code above in your browser using DataLab