R/preprocess.R

#' preprocess the roster data frame
#'

preprocess <- function(){
  roster <- read.csv(file = 'data/roster.csv') %>%
    select(name, year, team) %>%
    rowwise %>%
    mutate(year = 2000 + as.integer(gsub(' ', ' ', as.character(sub("\\'", '', year)))),
           name = as.character(name)) %>%
    filter(year <= 2015) %>%
    unique()
  save(roster, file = 'data/roster.RData')
}
hs97/WilliamsGrad documentation built on May 30, 2019, 4:36 p.m.