get_nfl_teams() Error 403 about espnscraper HOT 3 CLOSED

get_nfl_teams()
Getting NFL teams!
# A tibble: 32 x 8
   team_id team_name team_nickname team_abb team_full_name     team_color
   <chr>   <chr>     <chr>         <chr>    <chr>              <chr>     
 1 22      Cardinals Arizona       ARI      Arizona Cardinals  #A40227   
 2 1       Falcons   Atlanta       ATL      Atlanta Falcons    #000000   
 3 33      Ravens    Baltimore     BAL      Baltimore Ravens   #2B025B   
 4 2       Bills     Buffalo       BUF      Buffalo Bills      #04407F   
 5 29      Panthers  Carolina      CAR      Carolina Panthers  #2177B0   
 6 3       Bears     Chicago       CHI      Chicago Bears      #152644   
 7 4       Bengals   Cincinnati    CIN      Cincinnati Bengals #FF2700   
 8 5       Browns    Cleveland     CLE      Cleveland Browns   #4C230E   
 9 6       Cowboys   Dallas        DAL      Dallas Cowboys     #002E4D   
10 7       Broncos   Denver        DEN      Denver Broncos     #002E4D   
# … with 22 more rows, and 2 more variables: team_alt_color <chr>,
#   logo <chr>

 get_nfl_teams <- function() {
   message("Getting NFL teams!")
   
   team_url <- "https://site.api.espn.com/apis/site/v2/sports/football/nfl/teams?&limit=50"
   raw_teams <- jsonlite::read_json(team_url)
   
     raw_teams$sports[[1]]$leagues[[1]]$teams%>%
     tibble::enframe() %>% 
     dplyr::select(-name) %>% 
     tidyr::unnest_wider(value) %>%
     tidyr::unnest_wider(team) %>% 
     dplyr::select(-links) %>%
     dplyr::as_tibble()  %>% 
     dplyr::mutate("logoDefault" = purrr::map_chr(logos, function(df) df[[1]][[1]]),
                   "logoDark" = purrr::map_chr(logos, function(df) df[[2]][[1]]),
                   "logoScoreboard" = purrr::map_chr(logos, function(df) df[[3]][[1]]),
                   "logoDarkScoreboard" = purrr::map_chr(logos, function(df) df[[4]][[1]])) %>% 
     dplyr::select(id, name:alternateColor,-shortDisplayName, logoDefault:logoDarkScoreboard) %>% 
     purrr::set_names(
       nm = c(
         "uid", "team_name", "team_nickname", "team_short_name", "full_name", "team_color",
         "alternate_color", "logodefault", "logodark", "logoscoreboard", "logodarkscoreboard"
       )) %>% 
     dplyr::mutate(
       team_color = paste0("#", team_color),
       alternate_color = paste0("#", alternate_color)
     )

 %>%
     dplyr::mutate(
       team_color = paste0("#", team_color),
       alternate_color = paste0("#", alternate_color)
     )
 }