Exemplo de como implementar a autenticação a partir da resposta da GM5

Integração_SITE_DE_AUTENTICACAO.R

# Exemplo de como implementar a autenticação a partir da resposta da GM5:

library(RCurl)

headerFields =
  c(Accept = "text/xml",
    Accept = "multipart/*",
    'Content-Type' = "text/xml; charset=utf-8",
    SOAPAction = "http://tempuri.org/authToken")

body = paste0(
  '<?xml version="1.0" encoding="utf-8"?>
  <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
  <authToken xmlns="http://tempuri.org/">
  <token>',token,'</token>
  </authToken>
  </soap:Body>
  </soap:Envelope>'
)

reader = basicTextGatherer()

curlPerform(url = "https://advertising.criteo.com/API/v201010/AdvertiserService.asmx",
            httpheader = headerFields,
            postfields = body, 
            writefunction = reader$update)

xml = reader$value()