Question

我在Spotify的开发者应用程序部分创建了客户端ID和密钥。我正在引用此文档，并希望通过选择多个艺术家来扩展它。

https://www.r-bloggers.com/the-eurovision-2016-song-contest-in-an-r-shiny-app/

在这个例子中，他们只选择了1个艺术家ID，但是有一些漏洞，

1）您如何获得艺术家姓名而不是艺术家ID，因为我无法在艺术家ID的任何地方找到词汇表键？

2）你如何选择多位艺术家而不仅仅是一位。

例如，我如何选择Frank Sinatra和Elvis Presley？

代码如下：

library(httr)

clientID = '#############################'
secret = '########################'

response = POST(
  'https://accounts.spotify.com/api/token',
  accept_json(),
  authenticate(clientID, secret),
  body = list(grant_type = 'client_credentials'),
  encode = 'form',
  verbose()
)

mytoken = content(response)$access_token
## Frank Sinatra spotify artist ID
artistID = '1Mxqyy3pSjf8kZZL4QVxS0'

HeaderValue = paste0('Bearer ', mytoken)

URI = paste0('https://api.spotify.com/v1/artists/', artistID)
response2 = GET(url = URI, add_headers(Authorization = HeaderValue))
Artist = content(response2)
Artist

我的目标是获得每个艺术家歌曲的所有属性，如舞蹈等。

任何帮助都会很棒，谢谢！

Answer 1

如果您问如何从您在问题中创建的回复对象中获取艺术家姓名，您可以这样做：

> Artist$name

“Frank Sinatra”

如果您询问如何按艺术家姓名查询API，则相关的endpoint是艺术家按姓名搜索，这样您就可以找到ID（因为API基于ID而不是搜索功能，所以你需要那个）：

/v1/search?type=artist

获得几位艺术家的endpoint是：

/v1/artists?ids={ids}

他们实际上提供了一个基于名称的（单个）艺术家搜索的一个很好的jsFiddle示例：

http://jsfiddle.net/JMPerez/0u0v7e1b/

此搜索文档页面显示了他们如何构建搜索URI：

https://developer.spotify.com/web-api/search-item/

全部放在一起

这是一个完整的工作示例，基于R中的艺术家姓名进行搜索。让我们说我们想要搜索书呆子说唱王YTCracker：

artistName = 'ytcracker'

HeaderValue = paste0('Bearer ', mytoken)

URI = paste0('https://api.spotify.com/v1/search?query=', artistName,'&offset=0&limit=20&type=artist')
response2 = GET(url = URI, add_headers(Authorization = HeaderValue))
Artist = content(response2)
Artist

Artist对象具有ID，URI，流派，关注者数量以及足以探索此艺术家的其余Spotify API，其相册以及相关艺术家等的其他信息：< / p>

$artists
$artists$href
[1] "https://api.spotify.com/v1/search?query=ytcracker&offset=0&limit=20&type=artist"

$artists$items
$artists$items[[1]]
$artists$items[[1]]$external_urls
$artists$items[[1]]$external_urls$spotify
[1] "https://open.spotify.com/artist/1x82Mu3wakMkldMW5kEiP4"


$artists$items[[1]]$followers
$artists$items[[1]]$followers$href
NULL

$artists$items[[1]]$followers$total
[1] 2386


$artists$items[[1]]$genres
$artists$items[[1]]$genres[[1]]
[1] "nerdcore"


$artists$items[[1]]$href
[1] "https://api.spotify.com/v1/artists/1x82Mu3wakMkldMW5kEiP4"

$artists$items[[1]]$id
[1] "1x82Mu3wakMkldMW5kEiP4"

$artists$items[[1]]$images
$artists$items[[1]]$images[[1]]
$artists$items[[1]]$images[[1]]$height
[1] 640

$artists$items[[1]]$images[[1]]$url
[1] "https://i.scdn.co/image/da66c87cfb6f7e400979b53f12c0b0cb029424a8"

$artists$items[[1]]$images[[1]]$width
[1] 640


$artists$items[[1]]$images[[2]]
$artists$items[[1]]$images[[2]]$height
[1] 300

$artists$items[[1]]$images[[2]]$url
[1] "https://i.scdn.co/image/4055cb39744f85c94838841eecc74563b94a00d1"

$artists$items[[1]]$images[[2]]$width
[1] 300


$artists$items[[1]]$images[[3]]
$artists$items[[1]]$images[[3]]$height
[1] 64

$artists$items[[1]]$images[[3]]$url
[1] "https://i.scdn.co/image/d46121137f358701b55dcdd03ba9a632ea7e4879"

$artists$items[[1]]$images[[3]]$width
[1] 64



$artists$items[[1]]$name
[1] "YTCracker"

$artists$items[[1]]$popularity
[1] 31

$artists$items[[1]]$type
[1] "artist"

$artists$items[[1]]$uri
[1] "spotify:artist:1x82Mu3wakMkldMW5kEiP4"


$artists$items[[2]]
$artists$items[[2]]$external_urls
$artists$items[[2]]$external_urls$spotify
[1] "https://open.spotify.com/artist/2RnAr4QItmKW4vFKip3m8v"


$artists$items[[2]]$followers
$artists$items[[2]]$followers$href
NULL

$artists$items[[2]]$followers$total
[1] 36


$artists$items[[2]]$genres
list()

$artists$items[[2]]$href
[1] "https://api.spotify.com/v1/artists/2RnAr4QItmKW4vFKip3m8v"

$artists$items[[2]]$id
[1] "2RnAr4QItmKW4vFKip3m8v"

$artists$items[[2]]$images
list()

$artists$items[[2]]$name
[1] "YTCracker & Hairetsu"

$artists$items[[2]]$popularity
[1] 9

$artists$items[[2]]$type
[1] "artist"

$artists$items[[2]]$uri
[1] "spotify:artist:2RnAr4QItmKW4vFKip3m8v"



$artists$limit
[1] 20

$artists$`next`
NULL

$artists$offset
[1] 0

$artists$previous
NULL

$artists$total
[1] 2

请注意，我对搜索结果的大小设置了可选限制。另请注意，您可以使用相同的搜索结果来查询专辑封面图片等内容，如jsFiddle示例中所示，如果有这样的话。

多个Arists

好的，现在我根据我的搜索和你的问题中的Sinatra的ID获得YTCracker的ID，我想同时查询这两位艺术家的API。我可以这样做。只要您拥有ID，就可以为超过2位艺术家提供ID。

URI = paste0('https://api.spotify.com/v1/artists?ids=', Artist$artists$items[[2]]$id,",", '1Mxqyy3pSjf8kZZL4QVxS0')
response2 = GET(url = URI, add_headers(Authorization = HeaderValue))
Artists = content(response2)

$artists
$artists[[1]]
$artists[[1]]$external_urls
$artists[[1]]$external_urls$spotify
[1] "https://open.spotify.com/artist/2RnAr4QItmKW4vFKip3m8v"


$artists[[1]]$followers
$artists[[1]]$followers$href
NULL

$artists[[1]]$followers$total
[1] 36


$artists[[1]]$genres
list()

$artists[[1]]$href
[1] "https://api.spotify.com/v1/artists/2RnAr4QItmKW4vFKip3m8v"

$artists[[1]]$id
[1] "2RnAr4QItmKW4vFKip3m8v"

$artists[[1]]$images
list()

$artists[[1]]$name
[1] "YTCracker & Hairetsu"

$artists[[1]]$popularity
[1] 9

$artists[[1]]$type
[1] "artist"

$artists[[1]]$uri
[1] "spotify:artist:2RnAr4QItmKW4vFKip3m8v"


$artists[[2]]
$artists[[2]]$external_urls
$artists[[2]]$external_urls$spotify
[1] "https://open.spotify.com/artist/1Mxqyy3pSjf8kZZL4QVxS0"


$artists[[2]]$followers
$artists[[2]]$followers$href
NULL

$artists[[2]]$followers$total
[1] 1204440


$artists[[2]]$genres
$artists[[2]]$genres[[1]]
[1] "adult standards"

$artists[[2]]$genres[[2]]
[1] "brill building pop"

$artists[[2]]$genres[[3]]
[1] "christmas"

$artists[[2]]$genres[[4]]
[1] "easy listening"

$artists[[2]]$genres[[5]]
[1] "jazz christmas"

$artists[[2]]$genres[[6]]
[1] "lounge"

$artists[[2]]$genres[[7]]
[1] "mellow gold"

$artists[[2]]$genres[[8]]
[1] "soft rock"

$artists[[2]]$genres[[9]]
[1] "soul"

$artists[[2]]$genres[[10]]
[1] "swing"

$artists[[2]]$genres[[11]]
[1] "vocal jazz"


$artists[[2]]$href
[1] "https://api.spotify.com/v1/artists/1Mxqyy3pSjf8kZZL4QVxS0"

$artists[[2]]$id
[1] "1Mxqyy3pSjf8kZZL4QVxS0"

$artists[[2]]$images
$artists[[2]]$images[[1]]
$artists[[2]]$images[[1]]$height
[1] 650

$artists[[2]]$images[[1]]$url
[1] "https://i.scdn.co/image/fc4e0f474fb4c4cb83617aa884dc9fd9822d4411"

$artists[[2]]$images[[1]]$width
[1] 999


$artists[[2]]$images[[2]]
$artists[[2]]$images[[2]]$height
[1] 416

$artists[[2]]$images[[2]]$url
[1] "https://i.scdn.co/image/883de3e492364891543bc0313ffe516626778a16"

$artists[[2]]$images[[2]]$width
[1] 640


$artists[[2]]$images[[3]]
$artists[[2]]$images[[3]]$height
[1] 130

$artists[[2]]$images[[3]]$url
[1] "https://i.scdn.co/image/810f29651e05c9eae5a31f8151c2e05dc46390f9"

$artists[[2]]$images[[3]]$width
[1] 200


$artists[[2]]$images[[4]]
$artists[[2]]$images[[4]]$height
[1] 42

$artists[[2]]$images[[4]]$url
[1] "https://i.scdn.co/image/a283ecdc6252ae305c53d283846cae2e8b22e94c"

$artists[[2]]$images[[4]]$width
[1] 64



$artists[[2]]$name
[1] "Frank Sinatra"

$artists[[2]]$popularity
[1] 77

$artists[[2]]$type
[1] "artist"

$artists[[2]]$uri
[1] "spotify:artist:1Mxqyy3pSjf8kZZL4QVxS0"

Answer 2

我构建了spotifyr包来做这件事！

install.packages('spotifyr')
library(spotifyr)
library(tidyverse)

Sys.setenv(SPOTIFY_CLIENT_ID = '[YOUR_SPOTIFY_CLIENT_ID]')
Sys.setenv(SPOTIFY_CLIENT_SECRET = '[YOUR_SPOTIFY_CLIENT_SECRET]')

artist_names <- c('Frank Sinatra', 'Elvis Presley')

artist_audio_features <- map_df(artist_names, function(artist) {
    get_artist_audio_features(artist) %>%
        mutate(artist_name = artist)
})

如果您有任何其他问题/疑问，请随时与github联系：https://github.com/charlie86/spotifyr

在R中访问多个艺术家的Spotify API

2 个答案: