JSON URL с сайта NBA больше не работает

Question

Я работал над этим проектом, который собирает данные с веб-сайта статистики nba.com, используя R. Пару месяцев a go, я смог легко его использовать, но теперь URL не работает и я не могу понять, почему. Глядя на сайт, кажется, что URL-адрес вообще не изменился, но я не могу получить к нему доступ через свой браузер.

library(rjson)

url <- "https://stats.nba.com/stats/scoreboardV2?DayOffset=0&LeagueID=00&gameDate=02%2F07%2F2020"

data_json <- fromJSON(file = url)

Кто-нибудь еще испытывает эту проблему?

Answer 1

Это была проблема, связанная с заголовком. Следующие исправили это:

url <- "https://stats.nba.com/stats/scoreboardV2?DayOffset=0&LeagueID=00&gameDate=02%2F07%2F2020"

  headers = c(
    `Connection` = 'keep-alive',
    `Accept` = 'application/json, text/plain, */*',
    `x-nba-stats-token` = 'true',
    `User-Agent` = 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_2) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/79.0.3945.130 Safari/537.36',
    `x-nba-stats-origin` = 'stats',
    `Sec-Fetch-Site` = 'same-origin',
    `Sec-Fetch-Mode` = 'cors',
    `Referer` = 'http://stats.nba.com/%referer%/',
    `Accept-Encoding` = 'gzip, deflate, br',
    `Accept-Language` = 'en-US,en;q=0.9'
  )

  res <- GET(url, add_headers(.headers = headers))
  data_json <- res$content %>%
    rawToChar() %>%
    fromJSON()