R/api.request.R

In WillemPaling/RDoubleClick: R Client for DoubleClick for Advertisers Reporting API

#' api.request
#'
#' Internal Function: Make API Request
#' @importFrom httr GET POST stop_for_status content config

api.request <- function(url, querystring="",method="GET"){

  if(DC.authmethod=='oauth') {
    if(method=="GET") {
      req <- GET(url,query=querystring,config(token = DC.token))
    } else if (method=="POST") {
      # requires a dummy body to avoid a content-length error
      req <- POST(url=paste0(url,'?',querystring),config=config(token = DC.token),body=list('dummy'),encode='json')
    }
  }
  
  stop_for_status(req)
  response <- content(req,as='text')

  return(response)
}