R/parse.pat.r

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

parse.pat <- function(play) {
    play$PAT <- FALSE

    # pat_regex1 = paste0("(?<kicker>", name.pattern, ")",
    #     " (extra point|KICK|PAT)",
    #     "( (?<made>GOOD|MADE)| (?<missed>MISSED|NO GOOD|BLOCKED))")
    pat_regex = paste0("(TD|touchdown)[^[:alnum:]]* \\(?(?<kicker>", name.pattern, ")",
        " (extra point|KICK|PAT)",
        "( (?<made>GOOD|MADE)| (?<missed>MISSED|NO GOOD|BLOCKED))?\\)?")

    if (grepl(pat_regex, play$pbp, perl=TRUE, fixed=FALSE, ignore.case=TRUE)) {
        play$PAT <- TRUE
        play$made <- TRUE
        
        match <- regex(pat_regex, play$pbp, perl=TRUE, fixed=FALSE, ignore.case=TRUE)
        play$kicker <- format.name(match[1,'kicker'])     
           
        if (!is.na(match[1,'missed'])) {
            play$made <- FALSE
        }
    }
    
    return(play)
}