data-raw/nba_tm_colors.R

In tonyelhabr/tedata: Tony's Personal Package for Data

library("dplyr")

nbastatR::get_teams_details()
# rm(list = setdiff(ls(), c("dataTeamBackground", "dataTeamSocialSites")))

nba_tms_meta <-
  df_nba_team_dict %>%
  setNames(snakecase::to_snake_case(names(.))) %>%
  filter(!is_non_nba_team) %>%
  mutate(conference = if_else(id_conference == 1, "Eastern", "Western"),
         division =
           case_when(
                     id_division == 1 ~ "Atlantic",
                     id_division == 2 ~ "Central",
                     id_division == 3 ~ "Northwest",
                     id_division == 4 ~ "Pacific",
                     id_division == 5 ~ "Southest",
                     id_division == 6 ~ "Southwest"
           )
  ) %>%
  select(slug_team, id_conference, conference, id_division, division)

nba_tms <-
  dataTeamBackground %>%
  setNames(snakecase::to_snake_case(names(.))) %>%
  dplyr::select(slug_team, name_team) %>%
  dplyr::inner_join(
    dataTeamSocialSites %>%
      setNames(snakecase::to_snake_case(names(.))) %>%
      dplyr::filter(name_account == "Twitter") %>%
      dplyr::select(name_team, name_account, url_account),
    by = "name_team") %>%
  dplyr::select(-name_account) %>%
  dplyr::inner_join(nba_tms_meta, by = "slug_team") %>%
  dplyr::rename(tm_slug = slug_team, tm_name_full = name_team, twitter_url = url_account) %>%
  dplyr::mutate(twitter_screen_name = stringr::str_replace_all(twitter_url, "https://twitter.com/", ""))

teamcolors_tms <-
  teamcolors::teamcolors %>%
  dplyr::rename(tm_name_full = name) %>%
  dplyr::filter(league == "nba")

nba_tms_colors <-
  nba_tms %>%
  dplyr::inner_join(teamcolors_tms, by = "tm_name_full") %>%
  dplyr::select(tm = tm_slug, tm_slug, dplyr::everything()) %>%
  dplyr::rename_at(dplyr::vars(dplyr::ends_with("ary")), dplyr::funs(stringr::str_c("teamcolors_", .)))

readr::write_csv(nba_tms_colors, file.path("data", "nba_tms_colors.csv"))
save(nba_tms_colors, file = file.path("data", "nba_tms_colors.rdata"))
devtools::use_data(nba_tms_colors, overwrite = T)