accept file_type arg for ftn data

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: nflreadr
 Title: Download 'nflverse' Data
-Version: 1.4.0.08
+Version: 1.4.0.09
 Authors@R: c(
     person("Tan", "Ho", , "[email protected]", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0001-8388-5155")),

R/load_ftn_charting.R

@@ -8,6 +8,8 @@
 #'
 #' @param seasons a numeric vector of seasons to return, defaults to most recent season.
 #' If set to `TRUE`, returns all available data. Data available from 2022 onwards.
+#' @param file_type One of `c("rds", "qs", "csv", "parquet")`. Can also be set globally with
+#' `options(nflreadr.prefer)`
 #'
 #' @author FTN Data
 #' @source FTNData.com
@@ -27,15 +29,18 @@
 #' @family ftn_charting
 #'
 #' @export
-load_ftn_charting <- function(seasons = most_recent_season()){
+load_ftn_charting <- function(seasons = most_recent_season(),
+                              file_type = getOption("nflreadr.prefer", default = "rds")){
 
   if(isTRUE(seasons)) seasons <- 2022:most_recent_season()
 
   stopifnot(is.numeric(seasons),
             seasons >= 2022,
             seasons <= most_recent_season())
 
-  urls <- glue::glue("https://github.com/nflverse/nflverse-data/releases/download/ftn_charting/ftn_charting_{seasons}.rds")
+  file_type <- rlang::arg_match0(file_type, c("rds", "csv", "parquet", "qs"))
+
+  urls <- glue::glue("https://github.com/nflverse/nflverse-data/releases/download/ftn_charting/ftn_charting_{seasons}.{file_type}")
 
   out <- load_from_url(
     urls,