sum air yards of all targets, not only completions

R/calculate_stats.R

@@ -267,7 +267,7 @@ calculate_stats <- function(seasons = nflreadr::most_recent_season(),
       # cannot appear more than once per play.
       # If this ever changes, we can use pbp instead.
       receiving_air_yards = if (.env$stat_type == "player"){
-        sum( (stat_id %in% 21:22) * .data$team_play_air_yards )
+        sum( (stat_id == 115) * .data$team_play_air_yards )
       } else .data$passing_air_yards,
       receiving_yards_after_catch = sum((stat_id == 113) * yards),
       receiving_first_downs = sum((stat_id %in% 21:22) & has_id(4, team_stats)),