20240918 - script to download weekly projections

isaactpetersen · Sep 18, 2024 · 5c3ae52 · 5c3ae52
1 parent 47fd58b
commit 5c3ae52
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/download_weekly_projections.R b/download_weekly_projections.R
@@ -1,5 +1,14 @@
 # Download Weekly Projections
 
+# Specify Season and Week Number ----
+
+season <- 2024
+weekNumber <- 3
+
+# Processing ----
+season <- as.character(season)
+weekNumber <- as.character(weekNumber)
+
 # Libraries ----
 library("ffanalytics")
 library("tidyverse")
@@ -71,7 +80,13 @@ players_projections_weekly_average <- players_projections_weekly_average %>%
   add_player_info()
 
 # Save Projected Points ----
+
 save(
   players_projectedPoints_weekly, players_projections_weekly_average,
   file = "./data/players_projectedPoints_weekly.RData"
 )
+
+save(
+  players_projectedPoints_weekly, players_projections_weekly_average,
+  file = paste("./data/players_projectedPoints_weekly_", season, "_", "week", weekNumber, ".RData", sep = "")
+)