R - Помогите мне понять, почему мой curl POST не работает в httr - статус 400 - PullRequest
0 голосов
/ 16 января 2019

Моя проблема довольно проста, но, поскольку я не айтишник, я не могу понять, что не так. Дело в том, что если я использую этот следующий вызов, я получаю статус 200, и в ответ я жду токена для использования на день:

curl -X POST \
  https://connect-sandbox.enmacc.de/v1.0/oauth/token \
  -H 'Content-Type: application/json' \
  -H 'cache-control: no-cache' \
  -H 'x-api-key: AAP2AVcXhnaPKi0VwcCvf4PL4FXKy7kM1iFiTvId' \
  -d '{
  "grant_type": "client_credentials",
  "client_id": "qXoTnhxfJR7PvPkiNEDECoTRWPhZ7dLm",
  "client_secret": "TFMqUrVqt7pyaTjjCxGV6rVorjmepTUy"
}'

Я пытаюсь сделать это в R с помощью httr. Я действительно верю, что мой синтаксис правильный, однако я получаю статус 400 и никаких токенов. Есть идеи?

POST(url = "https://connect-sandbox.enmacc.de/v1.0/oauth/token",
     add_headers("Content-Type" = "application/json",
                 "cache-control" = "no-cache",
                 "x-api-key" = "AAP2AVcXhnaPKi0VwcCvf4PL4FXKy7kM1iFiTvId"),
     body = list(grant_type = "client_credentials",
                 client_id = "qXoTnhxfJR7PvPkiNEDECoTRWPhZ7dLm",
                 client_secret = "TFMqUrVqt7pyaTjjCxGV6rVorjmepTUy")
     )
...