R/authenticate.R

In tinyspotifyr: Tinyverse R Wrapper for the 'Spotify' Web API

#' Get Spotify Access Token
#'
#' This function creates a Spotify access token.
#' @param client_id Defaults to System Environment variable "SPOTIFY_CLIENT_ID"
#' @param client_secret Defaults to System Environment variable "SPOTIFY_CLIENT_SECRET"
#' @keywords auth
#' @return
#' Returns an environment with access token data.
#' @export
#' @examples
#' \dontrun{
#' get_spotify_access_token()
#' }

get_spotify_access_token <- function(client_id = Sys.getenv('SPOTIFY_CLIENT_ID'), client_secret = Sys.getenv('SPOTIFY_CLIENT_SECRET')) {

    post0 <- RETRY('POST', 'https://accounts.spotify.com/api/token',
                  accept_json(), httr::authenticate(client_id, client_secret),
                  body = list(grant_type = 'client_credentials'),
                  encode = 'form', httr::config(http_version = 2))

    post <- httr::content(post0)

    if (!is.null(post$error)) {
        stop(paste0("Could not authenticate with given Spotify credentials:\n\t",
                    post$error_description))
    }

    access_token <- post$access_token

    return(access_token)
}

#' Get Spotify authorization Code
#'
#' This function creates a Spotify access token.
#' @param client_id Defaults to System Envioronment variable "SPOTIFY_CLIENT_ID"
#' @param client_secret Defaults to System Envioronment variable "SPOTIFY_CLIENT_SECRET"
#' @param scope Space delimited string of spotify scopes, found here: https://developer.spotify.com/documentation/general/guides/scopes/. All scopes are selected by default
#' @keywords auth
#' @return
#' Returns an environment with access token data.
#' @export
#' @examples
#' \dontrun{
#' get_spotify_authorization_code()
#' }

get_spotify_authorization_code <- function(client_id = Sys.getenv("SPOTIFY_CLIENT_ID"), client_secret = Sys.getenv("SPOTIFY_CLIENT_SECRET"), scope = tinyspotifyr::scopes) {
    endpoint <- httr::oauth_endpoint(authorize = 'https://accounts.spotify.com/authorize',
                                     access = 'https://accounts.spotify.com/api/token')
    app <- httr::oauth_app('spotifyr', client_id, client_secret)
    httr::oauth2.0_token(endpoint = endpoint, app = app, scope = scope)
}