options

sportsdataverse · Oct 26, 2021 · febfede · febfede
1 parent 3b43f1b
commit febfede
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/R/cfbd_pbp_data.R b/R/cfbd_pbp_data.R
@@ -386,10 +386,8 @@ cfbd_pbp_data <- function(year,
                           play_type = NULL,
                           epa_wpa = FALSE,
                           ...) {
-  old <- options()
+  old <- options(list(stringsAsFactors = FALSE, scipen = 999))
   on.exit(options(old))
-  options(stringsAsFactors = FALSE)
-  options(scipen = 999)
   # Check if year is numeric, if not NULL
   if (!is.null(year) & !(is.numeric(year) & nchar(year) == 4)) {
     # Check if year is numeric, if not NULL

diff --git a/R/espn_cfb_pbp.R b/R/espn_cfb_pbp.R
@@ -13,10 +13,8 @@
 #'  espn_cfb_pbp(game_id = 401282614)
 #'
 espn_cfb_pbp <- function(game_id){
-  old <- options()
+  old <- options(list(stringsAsFactors = FALSE, scipen = 999))
   on.exit(options(old))
-  options(stringsAsFactors = FALSE)
-  options(scipen = 999)
 
   play_base_url <- "http://site.api.espn.com/apis/site/v2/sports/football/college-football/summary?"