data-raw/italian.R

In sunniraleigh/wetry: This Will Do Something

## code to prepare `italian` dataset goes here
library(janitor)
library(dplyr)
italian <- readr::read_csv("http://gattonweb.uky.edu/sheather/book/docs/datasets/nyc.csv")
italian <- clean_names(italian)
italian <- italian %>% select(-case)
italian$east <- factor(italian$east, labels = c("West", "East"))

## cleaning has to come before usethis
usethis::use_data(italian, overwrite = TRUE)