pass checks and add extended timeout

DESCRIPTION

@@ -2,7 +2,7 @@ Package: naturalstattrick
 Type: Package
 Title: Natural Stat Trick Data in R
 Version: 0.1.0
-Description: This package allows for accessing of Natural Stat Trick (https://naturalstattrick.com) data in R. This package currently accesses just game report data. It has built-in caching, rate-limiting, and auto-retry on connection failures. See more information at https://naturalstattrick.com/glossary
+Description: This package allows for accessing of Natural Stat Trick (https://naturalstattrick.com) data in R. This package currently accesses just game report data. It has built-in caching, rate-limiting, and auto-retry on connection failures. See more information at https://naturalstattrick.com/glossary.
 License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true

R/game.R

@@ -113,6 +113,7 @@ nst_game_call <- function(season, game_id) {
     )) %>%
     httr2::req_throttle(180 / 3600) %>% # 180 calls per h
     httr2::req_retry(5) %>%
+    httr2::req_timeout(30) %>%
     httr2::req_user_agent("naturalstattrick r package - github.com/pbulsink/naturalstattrick") %>%
     httr2::req_perform() %>%
     httr2::resp_body_html()

R/utils.R

@@ -28,7 +28,7 @@ clear_cache <- function() {
 #' @param gid gameID in YYYY0#GGGG format, or NULL to use season and game_id directly
 #' @param season season in YYYYYYYY format (i.e. 20072008). Overwritten by calculated season if gid is provided
 #' @param game_id game_id in ##### format (i.e. 21200). Overwritten by calculated game_id if gid is provided
-#' @param file csv file to add the selected game to
+#' @param filename csv file to add the selected game to
 #'
 #' @return None, called for side-effects
 #' @export
@@ -45,7 +45,7 @@ write_game_df_to_file <- function(gid, season = NULL, game_id = NULL, filename =
   if (system2("grep", paste0('-l "', gid, '" ', filename), stdout = FALSE) != 0) {
     nstdf <- nst_report_df(season, game_id)
     nstdf$game_id <- gid
-    write.table(nstdf, file = filename, append = TRUE, row.names = FALSE, col.names = FALSE, sep = ",", )
+    utils::write.table(nstdf, file = filename, append = TRUE, row.names = FALSE, col.names = FALSE, sep = ",", )
     closeAllConnections()
   }
 }