R/parse.fg.r

In wrbrooks/pbp: Scrape college football play-by-play data from the ESPN website

parse.fg <- function(play) {
    play$FG <- FALSE

    fg_regex <- paste0("(?<kicker>", name.pattern, ") (?<kickdist>\\d{1,3}) (yd|yard)s? (field goal|FG) ",
        "((?<made>GOOD|MADE)|(?<missed>MISSED|NO GOOD)).*")
        
    if (grepl(fg_regex, play$pbp, perl=TRUE, fixed=FALSE, ignore.case=TRUE)) {
        match <- regex(fg_regex, play$pbp, perl=TRUE, fixed=FALSE, ignore.case=TRUE)
        
        play$FG <- TRUE
        play$kicker <- format.name(match[1,'kicker'])
        play$kick_dist <- match[1,'kickdist']
        if (!is.na(match[1,'made'])) {play$made <- TRUE}
        else {play$made <- FALSE}
    }
    
    return(play)        
}