From 72b24928211cd2ca9770e01d0c264f2c571f5b23 Mon Sep 17 00:00:00 2001 From: Tan Ho <38083823+tanho63@users.noreply.github.com> Date: Tue, 26 Dec 2023 10:55:59 -0500 Subject: [PATCH] amend participation to append games (#87) --- R/update_pbp_participation.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/R/update_pbp_participation.R b/R/update_pbp_participation.R index 227d3fed8..809b33f17 100644 --- a/R/update_pbp_participation.R +++ b/R/update_pbp_participation.R @@ -147,7 +147,11 @@ pbp_participation <- dplyr::any_of(c('defense_man_zone_type','defense_coverage_type')) ) - plays <- dplyr::bind_rows(plays_template, plays) + current_participation <- nflreadr::load_participation(season) |> + dplyr::anti_join(plays, by = c("nflverse_game_id")) + + plays <- dplyr::bind_rows(plays_template, current_participation, plays) |> + dplyr::arrange(nflverse_game_id) cli::cli_process_start("Uploading participation data to nflverse-data")