Gulfstream App Data

gulfstream_data.R

gulf_ratings <- function(ratings, .progress = "none") {
    
    ratings <- ldply(ratings, .fun = gulf_ratings_helper, .progress = .progress)
    
    id <- sapply(1:ncol(ratings), FUN = function(x) is.factor(ratings[, x]))
    ratings[, id] <- lapply(ratings[, id], as.character)
    
    return(ratings)
}

gulf_ratings_helper <- function(horse) {
    
    id <- horse$'_id'
    yob <- horse$yob
    current_trainer <- horse$trainer
    
    races <- horse$races
    
    racesdf <- ldply(races, function(race) {
        
        data.frame(date = race$date, race = race$race, date_race = race$date_race,
                   race$details, race$conditions, race$runners)
    })
    
    compdf <- data.frame(id, yob, current_trainer, racesdf, stringsAsFactors = F)
    return(compdf)
}