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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.