updates to data-raw

ffverse · Aug 26, 2023 · 179f357 · 179f357
1 parent 8f3193f
commit 179f357
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 8 deletions.
diff --git a/data-raw/fp_injury_table.R b/data-raw/fp_injury_table.R
@@ -2,15 +2,11 @@ library(tidyverse)
 library(mgcv)
 library(ffscrapr)
 library(ffsimulator)
-# pkgload::load_all()
 
 conn <- mfl_connect(2021, 47747)
-base_seasons <- 2010:nflreadr::most_recent_season()
+base_seasons <- seq(2010, nflreadr::most_recent_season())
 scoring_history <- ff_scoringhistory(conn, base_seasons)
-
-model_gam <- function(data) {
-  gam(games_played_rate ~ s(rank, bs = "cs"), data = data)
-}
+model_gam <- function(data) mgcv::gam(games_played_rate ~ mgcv::s(rank, bs = "cs"), data = data)
 
 fp_injury_table <- ffsimulator::fp_rankings_history %>%
   dplyr::select(-"page_pos") %>%

diff --git a/data-raw/fp_rankings_history.R b/data-raw/fp_rankings_history.R
@@ -73,6 +73,6 @@ fp_rankings_history2 <- crossing(pages2, seasons2) %>%
   ) %>%
   filter(page_pos == pos)
 
-fp_rankings_history <- bind_rows(fp_rankings_history2, fp_rankings_history)
+.fp_rankings_history <- bind_rows(fp_rankings_history2, fp_rankings_history)
 
-usethis::use_data(fp_rankings_history, overwrite = TRUE)
+usethis::use_data(.fp_rankings_history, overwrite = TRUE)