R-帮助我了解为什么我的curl POST无法在httr中工作-状态400

Question

我的问题很简单，但是由于我不是IT人士，所以我无法设法知道出了什么问题。事实是，如果我使用以下通话，则会收到状态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"
}'

我正在用httr在R中执行此操作。我确实确实相信我的语法是正确的，但是我的状态是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")
     )