setScience("Spotify_API_V2", create=TRUE, subl=FALSE, load=FALSE)
lib(RCurl)
lib(rjson)

token <- getNewSpotifyToken()
# token.str <- sprintf("?oauth_token=%s", token)




frmt <- paste0("https://ws.spotify.com/analytics/api/theorchard/%s", "?oauth_token=", token)


words_known_to_work <- c("streams", "users", "tracks")
words <- c("track", "social", "socials", "source", "sources"
          , "socialmedia", "social_media", "other", "spotify", "orchard"
          , "playlist", "playlists")

## add in the words_known to exist.  Then set the names to self for the sapply statement
words <- unique(c(words_known_to_work, words))
selfname_(words)

sapply(words, function(word) url.exists(sprintf(frmt, word)))



https://api.spotify.com/v1/users/orchard/playlists/2eNCXsNd8DJwP47HM6knsK?oauth_token=NAoqChIKB29yY2hhcmQSABoAJQF_QFUSFMwSGeJnD9_vE8mMpsWMzxTjaqsV