data-raw/build_internal_data.R

In camdenk/mlbplotR: Create 'ggplot2' and 'gt' Visuals with Major League Baseball Logos

# Save raw logos in internal data for more speed
teams_colors_logos <- readr::read_csv("./data-raw/MLB_Colors_Logos.csv")


# Load in old versions and only overwrite what we want

old_logo_lists <- readRDS("./data-raw/old_data/old_logo_lists.rds")
logo_list <- old_logo_lists[[1]]
scoreboard_logo_list <- old_logo_lists[[2]]

# logo_list <- lapply(teams_colors_logos$team_abbr, function(x){
#   url <- teams_colors_logos$team_logo_espn[teams_colors_logos$team_abbr == x]
#   curl::curl_fetch_memory(url)$content
# })
#
# logo_list <- rlang::set_names(logo_list, teams_colors_logos$team_abbr)

az_url <- teams_colors_logos$team_logo_espn[teams_colors_logos$team_abbr == "AZ"]
logo_list$AZ <- curl::curl_fetch_memory(az_url)$content



primary_colors <- teams_colors_logos$team_color
names(primary_colors) <- teams_colors_logos$team_abbr

secondary_colors <- teams_colors_logos$team_color2
names(secondary_colors) <- teams_colors_logos$team_abbr

logo_urls <- teams_colors_logos$team_logo_espn
names(logo_urls) <- teams_colors_logos$team_abbr

scoreboard_logo_urls <- teams_colors_logos$team_scoreboard_logo_espn
names(scoreboard_logo_urls) <- teams_colors_logos$team_abbr


# scoreboard_logo_list <- lapply(teams_colors_logos$team_abbr, function(x){
#   url <- teams_colors_logos$team_scoreboard_logo_espn[teams_colors_logos$team_abbr == x]
#   curl::curl_fetch_memory(url)$content
# })
#
#
# scoreboard_logo_list <- rlang::set_names(scoreboard_logo_list, teams_colors_logos$team_abbr)

az_scoreboard_url <- teams_colors_logos$team_scoreboard_logo_espn[teams_colors_logos$team_abbr == "AZ"]
scoreboard_logo_list$AZ <- curl::curl_fetch_memory(az_scoreboard_url)$content


light_cap_logo_list <- lapply(teams_colors_logos$team_abbr, function(x){
  url <- teams_colors_logos$team_cap_logo_on_light[teams_colors_logos$team_abbr == x]
  #curl::curl_fetch_memory(url)$content
})



light_logo_list <- rlang::set_names(light_cap_logo_list, teams_colors_logos$team_abbr)



dark_cap_logo_list <- lapply(teams_colors_logos$team_abbr, function(x){
  url <- teams_colors_logos$team_cap_logo_on_dark[teams_colors_logos$team_abbr == x]
  #curl::curl_fetch_memory(url)$content
})

dark_logo_list <- rlang::set_names(dark_cap_logo_list, teams_colors_logos$team_abbr)



dot_logo_list <- lapply(teams_colors_logos$team_abbr, function(x){
  url <- teams_colors_logos$team_dot_logo[teams_colors_logos$team_abbr == x]
  # curl::curl_fetch_memory(url)$content
})

dot_logo_list <- rlang::set_names(dot_logo_list, teams_colors_logos$team_abbr)


# Build team name df that'll be used to clean abbreviations before plotting

team_data <- tibble::tribble(~team, ~alternate,
                           "AZ", "AZ",
                           "AZ", "ARI",
                           "AZ", "ARZ",
                           "ATL", "ATL",
                           "BAL", "BAL",
                           "BOS", "BOS",
                           "CHC", "CHC",
                           "CHC", "CHI",
                           "CWS", "CWS",
                           "CWS", "CHW",
                           "CIN", "CIN",
                           "CLE", "CLE",
                           "COL", "COL",
                           "DET", "DET",
                           "HOU", "HOU",
                           "KC" , "KC",
                           "KC" , "KCR",
                           "LAA", "LAA",
                           "LAA", "ANA",
                           "LAD", "LAD",
                           "LAD", "LA",
                           "MIA", "MIA",
                           "MIL", "MIL",
                           "MIN", "MIN",
                           "NYM", "NYM",
                           "NYM", "NY",
                           "NYY", "NYY",
                           "OAK", "OAK",
                           "PHI", "PHI",
                           "PIT", "PIT",
                           "SD" , "SD",
                           "SD" , "SDP",
                           "SF" , "SF",
                           "SF" , "SFG",
                           "SEA", "SEA",
                           "STL", "STL",
                           "TB" , "TB",
                           "TB" , "TBR",
                           "TEX", "TEX",
                           "TOR", "TOR",
                           "WSH", "WSH",
                           "WSH", "WAS",
                           "WSH", "WSN",
                           "AL", "AL",
                           "NL", "NL",
                           "MLB", "MLB",
                           "MLB", "---",
                           "MLB", "- - -") |>
  dplyr::select(alternate, team) |>
  tibble::deframe()





usethis::use_data(teams_colors_logos, logo_list,
                  primary_colors, secondary_colors,
                  #logo_urls, scoreboard_logo_urls, These are unnecessary to store
                  scoreboard_logo_list,

                  light_logo_list, dark_logo_list,
                  dot_logo_list,
                  team_data,
                  internal = TRUE, overwrite = TRUE)