typo in arg name

nflverse · Nov 13, 2024 · 528379d · 528379d
1 parent 165f143
commit 528379d
Showing 1 changed file with 8 additions and 9 deletions.
diff --git a/R/update_stats.R b/R/update_stats.R
@@ -1,18 +1,17 @@
 release_stats <- function(season){
-  library(rlang)
   cli::cli_progress_step("Starting {.fct nflfastR::calculate_stats} for {season}!")
 
   # WEEK LEVEL SUMMARY #########################################################
 
   stats_week_player <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "week",
     stat_type = "player"
   )
   attr(stats_week_player, "nflfastR_version") <- as.character(packageVersion("nflfastR"))
 
   stats_week_team <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "week",
     stat_type = "team"
   )
@@ -37,23 +36,23 @@ release_stats <- function(season){
   # PLAYER SEASON LEVEL SUMMARY ################################################
 
   stats_reg_player <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "season",
     stat_type = "player",
     season_type = "REG"
   )
   attr(stats_reg_player, "nflfastR_version") <- as.character(packageVersion("nflfastR"))
 
   stats_post_player <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "season",
     stat_type = "player",
     season_type = "POST"
   )
   attr(stats_post_player, "nflfastR_version") <- as.character(packageVersion("nflfastR"))
 
   stats_regpost_player <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "season",
     stat_type = "player",
     season_type = "REG+POST"
@@ -87,23 +86,23 @@ release_stats <- function(season){
   # TEAM SEASON LEVEL SUMMARY ##################################################
 
   stats_reg_team <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "season",
     stat_type = "team",
     season_type = "REG"
   )
   attr(stats_reg_team, "nflfastR_version") <- as.character(packageVersion("nflfastR"))
 
   stats_post_team <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "season",
     stat_type = "team",
     season_type = "POST"
   )
   attr(stats_post_team, "nflfastR_version") <- as.character(packageVersion("nflfastR"))
 
   stats_regpost_team <- nflfastR::calculate_stats(
-    season = .env$season,
+    seasons = season,
     summary_level = "season",
     stat_type = "team",
     season_type = "REG+POST"