R/auth.R

In MarkEdmondson1234/adobeAnalyticsR: Adobe Analytics API v2

#' OAuth2 Token for Adobe Analytics
#' @noRd
aa_token <- function(client_id,
                     client_secret){

  aa_endpoint <- httr::oauth_endpoint(
    authorize = "authorize/v1",
    access = "token/v1",
    base_url = "https://ims-na1.adobelogin.com/ims/"
  )

  aa_app <- httr::oauth_app(
    appname = "adobe_analytics_v2.0",
    key = client_id,
    secret = client_secret
  )

  #Oauth2 token
  httr::oauth2.0_token(
    endpoint = aa_endpoint,
    app = aa_app,
    scope = "openid,AdobeID,read_organizations,additional_info.projectedProductContext,additional_info.job_function",
    cache = "aa.oauth"
  )
}