From ae1609710260cff4e422115856d45df7aa690438 Mon Sep 17 00:00:00 2001 From: Sebastian Carl Date: Thu, 7 Mar 2024 12:13:26 +0100 Subject: [PATCH] no kick off if prev play is weather delay --- R/helper_add_nflscrapr_mutations.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/helper_add_nflscrapr_mutations.R b/R/helper_add_nflscrapr_mutations.R index 7bdab2cf..6651c385 100644 --- a/R/helper_add_nflscrapr_mutations.R +++ b/R/helper_add_nflscrapr_mutations.R @@ -146,7 +146,7 @@ add_nflscrapr_mutations <- function(pbp) { lead_ko = case_when( dplyr::lead(.data$kickoff_attempt) == 1 & .data$game_id == dplyr::lead(.data$game_id) & - !stringr::str_detect(tolower(.data$play_description), "(injured sf )|(tonight's attendance )|(injury update )|(end quarter)|(timeout)|( captains:)|( captains )|( captians:)|( humidity:)|(note - )|( deferred)|(game start )") & + !stringr::str_detect(tolower(.data$play_description), "(injured sf )|(tonight's attendance )|(injury update )|(end quarter)|(timeout)|( captains:)|( captains )|( captians:)|( humidity:)|(note - )|( deferred)|(game start )|( game has been suspended)") & !stringr::str_detect(.data$play_description, "GAME ") & !.data$play_description %in% c("GAME", "Two-Minute Warning", "The game has resumed.") & is.na(.data$two_point_conv_result) &