Oauth "R отсутствует тип гранта" от R с использованием пакета httr - PullRequest
Новая
       55

Oauth "R отсутствует тип гранта" от R с использованием пакета httr

0 голосов
/ 19 сентября 2018

Я получаю ошибку «Отсутствует тип предоставления», когда пытаюсь получить токен авторизации от Oauth с помощью пакета httr в R. Я попытался соответствовать требуемому формату application / x-www-form-urlencoded, но все ещеошибка сохраняется.Есть идеи, что я делаю неправильно?

Код, который я пытаюсь сделать, следующий: 

Auth_token_url = 'https://demoserver.com/Logon/oauth/token'


require(httr)

headers = c(
  `Content-Type` = 'application/x-www-form-urlencoded'
)

data = list(
  `grant_type` = 'password',
  `username` = 'demouser',
  `password` = 'password'  

)

GetToken <- httr::POST(url = Auth_token_url, httr::add_headers(.headers=headers), body=data, httr::authenticate('ClientID', 'ClientSecret') )

GetToken_text=content(GetToken, "text")

GetToken

GetToken_text

Я получаю следующую ошибку:

Ответ [https://demoserver.com/Logon/oauth/token] Дата: 2018-09-19 13:35 Статус: 400 Тип содержимого: application / json; charset = UTF-8
Размер: 68 B '{"error": "invalid_request", "error_description": "Отсутствует тип предоставления"} '

...