Nothing
#'Get additional album info
#'
#'
#'function to get additional album info from an artist using the Album ID
#'@param album_id The Spotify ID for the album..
#'@param token An OAuth token created with \code{spotifyOAuth}.
#'@return 'Get an Artist’s Albums
#'@export
getAlbumInfo<-function(album_id,token){
req<-httr::GET(paste0("https://api.spotify.com/v1/albums/",album_id),httr::config(token = token))
json1<-httr::content(req)
json2<-jsonlite::fromJSON(jsonlite::toJSON(json1))
df <- data.frame("id" = json2$id, "artist" = as.character(json2$artists$name),"name" = json2$name, "label" = json2$label, "popularity" = json2$popularity, "release_date" = json2$release_date, "album_type" = json2$album_type, "track_total" = json2$tracks$total)
return(df)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.