R/getAlbum.R

In Rspotify: Access to Spotify API

#'Get the tracks from an Album
#'
#'
#'Get Spotify catalog information about an album’s tracks.
#'@param album_id The Spotify ID for the album.
#'@return get Album from an artist using their ID
#'@param token An OAuth token created with \code{spotifyOAuth}.
#'@export

getAlbum<-function(album_id,token){
  req<-httr::GET(paste0("https://api.spotify.com/v1/albums/",album_id,"/tracks"),httr::config(token = token))
  json1<-httr::content(req)
  json2<-jsonlite::fromJSON(jsonlite::toJSON(json1))$items
  return(json2[,c("id","name","duration_ms","track_number","disc_number","available_markets","preview_url")])
}