get_spotify_playlist <- function(uri, user_id="orchard") {

  "GET https://api.spotify.com/v1/users/{user_id}/playlists/{playlist_id}"

  url <- sprintf("https://api.spotify.com/v1/users/%s/playlists/%s", user_id, uri)

  return(url)
}


stop ("This file has scrap work in progress")

"spotify:user:theorchardus:playlist:2eNCXsNd8DJwP47HM6knsK"

get_spotify_playlist("spotify:user:theorchardus:playlist:2eNCXsNd8DJwP47HM6knsK")

playlists/2eNCXsNd8DJwP47HM6knsK

URL <- 
"https://ws.spotify.com/analytics/api/theorchard/streams/2014/10/01/SE/?oauth_token=NAoqChIKB29yY2hhcmQSABoAJQF_QFUSFMwSGeJnD9_vE8mMpsWMzxTjaqsV"


URL <- 
"https://ws.spotify.com/analytics/api/theorchard/streams/2014/10/01/SE/?oauth_token=NAoqChIKB29yY2hhcmQSABoAJQF_QFUSFMwSGeJnD9_vE8mMpsWMzxTjaqsV" %>% print

url.exists(URL)

token
url.exists(URL)
isExpired(token)