Я использую ниже, чтобы извлечь жанры из списка художников. Пока в списке есть ок. Там 400 идентификаторов артистов, результат показывает только 100 артистов. Я предполагаю, что есть предел для API. Любые рекомендации о том, как добавить задержку / или другой подход для извлечения этой информации для более чем 100 художников?
library(Rspotify)
keys <- spotifyOAuth("*****","*******","***********")
library(purrr)
library(dplyr)
# Create a vector of owners id
artist_id <- c(artist$artistId)
artist_id
################
# Create empty list
datalist = list()
# Tell loop to iterate over all entries p in artist_id
for(p in artist_id) {
pl <- getArtistinfo(p ,token=keys) %>%
mutate(artist_id = p)
datalist[[p]] <- pl
}
artiestfile <- do.call(rbind, datalist)
artiestfile
Спасибо!