data-raw/major_earthquakes/major_earthquakes-dataprep.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

library(readr)
library(dplyr)
library(janitor)

# load data ---------------------------------------------------------------------

major_earthquakes <- read.csv("data-raw/major_earthquakes/major_earthquakes.csv")

# cleaning: remove X variable, clean names -------------------------------

major_earthquakes <- major_earthquakes %>% 
  select(-X) %>% 
  clean_names()

# save --------------------------------------------------------------------------

usethis::use_data(major_earthquakes, overwrite = TRUE)