From ca7e5397e9bd3aedf9c659cf3ff7e4c95d3f4994 Mon Sep 17 00:00:00 2001
From: Sebastian Carl <mrcaseb@gmail.com>
Date: Wed, 6 Mar 2024 11:24:08 +0100
Subject: [PATCH] Fix broken goal to go variable

---
 R/helper_scrape_nfl.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/helper_scrape_nfl.R b/R/helper_scrape_nfl.R
index 187cc091..a9bec2ba 100644
--- a/R/helper_scrape_nfl.R
+++ b/R/helper_scrape_nfl.R
@@ -281,7 +281,10 @@ get_pbp_nfl <- function(id,
       safety_team = ifelse(
         .data$safety == 1 & .data$season <= 2015 & (.data$home_team %in% c("JAC", "JAX") | .data$away_team %in% c("JAC", "JAX")),
         ifelse(.data$posteam == .data$home_team, .data$away_team, .data$home_team), .data$safety_team
-      )
+      ),
+
+      # can't trust the goal_to_go variable so we overwrite it here
+      goal_to_go = as.integer(stringr::str_detect(tolower(.data$pre_play_by_play), "goal"))
 
     ) %>%
     dplyr::mutate_if(