spotifyr web 抓取：“請求失敗 [429]”錯誤

Question

我希望從spotifr上的Spotify的spotifr API 獲取藝術家數據

首先，我正在抓取數據並將必要的數據保存在相關數據框中，並使用spotifyr庫中可用的get_artist_audio_features() function，我試圖獲取藝術家的詳細信息，但每次我都會遇到同樣的錯誤。

我的代碼可以在這里找到：[第一部分可以忽略，你可以直接運行它來抓取它並直接進行最后一段代碼]

library(rvest)
library(dplyr)
library(spotifyr)

upcoming_artists <- "https://newsroom.spotify.com/2020-03-09/36-new-artists-around-the-world-that-are-on-spotifys-radar/"
upcoming_artists <- read_html(upcoming_artists)
upcoming_artists <- upcoming_artists %>%
  html_elements("tbody") %>%
  html_table() %>%
  `[[`(1) %>%
  tidyr::separate_rows(X2, sep = "\n")

upcoming_artists_india = upcoming_artists[33:35,]
upcoming_artists_india_list = list(length = nrow(upcoming_artists_india))
for(i in 1:nrow(upcoming_artists_india))
{
  upcoming_artists_india$X2[i] <- paste("'",upcoming_artists_india$X2[i],"'",sep="")
}
for(i in 1:nrow(upcoming_artists_india))
{
  upcoming_artists_india_list[[i]] <- get_artist_audio_features(upcoming_artists_india$X2[i])
}

我得到的錯誤代碼是：

Request failed [429]

這個錯誤總是跟隨一些隨機時間，整個錯誤可能看起來像：

Request failed [429]. Retrying in 59423 seconds...

代碼沒有運行一次，我無法理解錯誤。

Answer 1

您必須將用戶代理作為參數注入

upcoming_artists <- read_html(upcoming_artists,user_agent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/105.0.0.0 Safari/537.36")