fix fantasy for qb scramble

nflverse · Feb 12, 2021 · 5398ea2 · 5398ea2
1 parent 279519d
commit 5398ea2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/helper_additional_functions.R b/R/helper_additional_functions.R
@@ -234,11 +234,13 @@ clean_pbp <- function(pbp, ...) {
         fantasy = case_when(
           !is.na(.data$rusher) ~ .data$rusher,
           is.na(.data$rusher) & !is.na(.data$receiver) ~ .data$receiver,
+          .data$qb_scramble == 1 ~ .data$passer,
           TRUE ~ NA_character_
         ),
         fantasy_id = case_when(
           !is.na(.data$rusher_id) ~ .data$rusher_id,
           is.na(.data$rusher_id) & !is.na(.data$receiver_id) ~ .data$receiver_id,
+          .data$qb_scramble == 1 ~ .data$passer_id,
           TRUE ~ NA_character_
         ),
         out_of_bounds = dplyr::if_else(