Helper funs to get data from Gulfstream app (durtal.github.io/gulfstream) into R

gulfstream_race.R

gulf_races_helper <- function(race) {
    
    runners <- ldply(race$runners, data.frame, stringsAsFactors = FALSE)
    details <- data.frame(race$details, stringsAsFactors = FALSE)
    conditions <- data.frame(race$conditions, stringsAsFactors = FALSE)
    date_race <- data.frame(date = race$date,
                            date_race = race$date_race,
                            race = race$race,
                            stringsAsFactors = FALSE)
    
    compdf <- data.frame(date_race, details, conditions, runners)
    return(compdf)
}

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