fixed team logos call

danmorse314 · Mar 4, 2024 · 2a1cc2c · 2a1cc2c
1 parent 4263aa7
commit 2a1cc2c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/get_game_ids.R b/R/get_game_ids.R
@@ -29,7 +29,7 @@
 get_game_ids <- function(season = NULL, day = as.Date(Sys.Date(), "%Y-%m-%d")){
 
   # load team abbreviations
-  team_info <- team_logos_colors
+  team_info <- hockeyR::team_logos_colors
 
   if(is.null(season)){
 
@@ -108,7 +108,8 @@ get_game_ids <- function(season = NULL, day = as.Date(Sys.Date(), "%Y-%m-%d")){
       dplyr::select(
         game_id = id, season_full = season, game_time, gameType,
         homeTeam, awayTeam, date
-      )
+      ) %>%
+      dplyr::distinct()
 
     # check if game has a score attached to the teams
     if("score" %in% names(dplyr::tibble(game_id_list$homeTeam)%>%tidyr::unnest_wider(1))){