data-raw/blizzard_salary/blizzard_salary-dataprep.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

library(readr)
library(janitor)
library(dplyr)
library(lubridate)
library(stringr)

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

raw_data <- read_csv(here::here("data-raw/blizzard_salary/salary.csv"))

# cleaning: 

blizzard_salary <- raw_data %>% 
  mutate(current_salary = parse_number(current_salary),
         percent_incr = as.numeric(str_replace(raw_data$percent_incr, "[%]","")),
         location = case_when(location == "LA" ~ "Los Angeles",
                              TRUE ~ location),
         current_title = str_to_title(current_title))

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

usethis::use_data(blizzard_salary, overwrite= TRUE)