Как отправить xml пост в R? - PullRequest
Новая
       36

Как отправить xml пост в R?

0 голосов
/ 24 марта 2020

Я пытаюсь сделать сообщение в R, используя библиотеку httr, тело содержит xml, и это вызывает у меня проблемы.

Я пытался сделать это в почтальоне, и мне это удалось, даже код python был следующим:

import requests

url = "https://www.clol.com/wcs/resources/api/v1/solicitud/token=123"

payload = "<requestCreditoCoppel>\n  <primer_nombre>YOMIRA</primer_nombre>\n  <segundo_nombre>ADRIANA</segundo_nombre>\n  <primer_apellido>GOMEZ</primer_apellido>\n  <segundo_apellido>GOMEZ</segundo_apellido>\n  <email>adriana_calderon98@hotmail.com</email>\n  <celular>3328315796</celular>\n  <telefono/>\n  <agendado>1</agendado>\n  <zona_horaria>CST</zona_horaria>\n  <user_agent>123</user_agent>\n  <app_origen>3</app_origen>\n  <hora>21:45:08</hora>\n  <fecha>2020-03-23</fecha>\n  <fecha_nacimiento>1998-05-11</fecha_nacimiento>\n  <rfc>GOCY980511771</rfc>\n  <terminos>1</terminos>\n</requestCreditoCoppel> "

headers = {
  'Content-Type': 'application/xml',
  'Cookie': 'f5avrbbbbbbbbbbbbbbbb=BHNDCACKIACCHHGBFLMOOBJCGEMKDNAMFDMGBDBKCEHDLKNKPBHCIPNJECFAFAGPNBIPOBFMDPEKGLMLAIBLMHHODMFGKFCJOICPLDJBIDADNOECGKMOJJIBLEOBEEAN; customersegment=b; i10c_experiment_cookie=brotli:b; JSESSIONID=0000jStrj8M7MQviBhIgXrPefiI:1b2r8vuqc; TS015e2ea3=01210e49eb0f7cb7172825892bb05bb239dfe4c6356773bb52b0f8083cc253509522e79d74a66a3161de452787dd4d599933e967214390f660f4eab58170343a645b77df68'
}

response = requests.request("POST", url, headers=headers, data = payload)

En R intete lo siguiente 

b2 <- "https://www.clol.com/wcs/resources/api/v1/solicitud/token=123"

body = "<requestCreditoCoppel>\n <primer_nombre>YOMIRA</primer_nombre>\n <segundo_nombre>ADRIANA</segundo_nombre>\n <primer_apellido>GOMEZ</primer_apellido>\n <segundo_apellido>GOMEZ</segundo_apellido>\n <email>adriana_calderon98@hotmail.com</email>\n <celular>3328315796</celular>\n <telefono></telefono>\n <agendado>1</agendado>\n <zona_horaria>CST</zona_horaria>\n <user_agent>123</user_agent>\n <app_origen>3</app_origen>\n <hora>21:46:12</hora>\n <fecha>2020-03-23</fecha>\n <fecha_nacimiento>1998-05-11</fecha_nacimiento>\n <rfc>GOCY980511771</rfc>\n <terminos>1</terminos>\n  </requestCreditoCoppel>"

POST(b2, body = body, encode = 'raw')
...