R/loadToken.R

In jburkhardt/RAdwords: Loading Google Adwords Data into R

#' @title Loading the Access Token
#' 
#' @description loadToken loads the access token using credentials provided by \code{\link{getAuth}}. Execution of function is possible only once per authentication process.
#' Usually you need not to run loadToken() explicitly since the whole authentication process is managed by \code{\link{doAuth}}.
#' @param credlist list of credentials
#' @importFrom RCurl postForm
#' @importFrom rjson fromJSON
#' @return Access token with corresponding time stamp.
loadToken = function(credlist) {
  # This function loads the access token using credentials from getAuth(). Execution of function is only possible once.
  #
  # Args:
  #   None - credentials as input.
  #
  # Returns:
  #   access.token with corresponding time stamp
  opts <- list(verbose=T, ssl.verifypeer = FALSE) # Fix SSL certificate problem for windows users
  raw_data <- RCurl::postForm("https://accounts.google.com/o/oauth2/token",
                        .opts=opts, code=credlist$c.token,
                        client_id=credlist$c.id,
                        client_secret=credlist$c.secret,
                        redirect_uri="urn:ietf:wg:oauth:2.0:oob",
                        grant_type="authorization_code", 
                        style="POST")
  
  if(is.raw(raw_data)) {
    a <- rjson::fromJSON(rawToChar(raw_data))
  } else {
    a <- rjson::fromJSON(raw_data)
  }
  
  if (length(a) == 1) {
    print('You need to update the token - run doAuth()')
  } else {
    a$timeStamp <- as.numeric(Sys.time())
  }
  
  a
  
}