use read_worldfootballr

JaseZiv · Dec 28, 2024 · c5913ee · c5913ee
1 parent 585876f
commit c5913ee
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 1 deletion.
diff --git a/R/fb_advanced_match_stats/update_fb_advanced_match_stats.R b/R/fb_advanced_match_stats/update_fb_advanced_match_stats.R
@@ -101,7 +101,7 @@ update_fb_advanced_match_stats <- function(
     season_end_year = latest_season
   )
 
-  existing_data <- read_worldfootballr_rds(
+  existing_data <- read_worldfootballr(
     name = name, 
     tag = fb_advanced_match_stats_tag
   )

diff --git a/R/piggyback.R b/R/piggyback.R
@@ -43,3 +43,25 @@ read_worldfootballr_rds <- function(name, tag) {
   path <- sprintf("https://github.com/%s/releases/download/%s/%s.rds", worldfootballr_repo, tag, name)
   readRDS(url(path))
 }
+
+read_worldfootballr_csv <- function(name, tag) {
+  path <- sprintf("https://github.com/%s/releases/download/%s/%s.csv", worldfootballr_repo, tag, name)
+  read.csv(path)
+}
+
+safely_read_worldfootballr_rds <- purrr::safely(read_worldfootballr_rds)
+
+read_worldfootballr <- function(name, tag) {
+  res <- safely_read_worldfootballr_rds(name, tag)
+  if (is.null(res$error)) {
+    return(res$value)
+  }
+  message(
+    sprintf(
+      'Missing RDS file at `name = "%s"` (`tag: "%s"`).\nTrying to read from the CSV.',
+      name, 
+      tag
+    )
+  )
+  read_worldfootballr_csv(name, tag)
+}