data-raw/mcu_films/mcu_films-dataprep.R

library(readr)
library(dplyr)

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

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

# cleaning: remove rating variable -------------------------------

mcu_films <- mcu_films %>% 
  select(-rating) 

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

usethis::use_data(mcu_films, overwrite = TRUE)
npaterno/data_hunter documentation built on July 22, 2022, 10:20 a.m.