Доступ к API OAuth 2.0 prosper.com через R - PullRequest
1 голос
/ 19 октября 2019

Я пытаюсь получить доступ к Prosper.com API на языке программирования R.

Нет онлайн-помощи для этой задачи.

Я перевел следующий код Python наR:

import requests
url = "https://api.prosper.com/v1/security/oauth/token"
payload = "grant_type=password&client_id=<your_client_id>&client_secret=<your_client_secret>&username=<prosper_account_username>&password=<prosper_account_password>"
headers = { 'accept': "application/json", 'content-type': "application/x-www-form-urlencoded" }
response = requests.request("POST", url, data=payload, headers=headers)
print(response.text)

Вот мой перевод с Python на R:

# Required Libraries
library(httr)
library(jsonlite)

# All API access information
Prosper_Base_Address <- "https://api.prosper.com/v1"
Request_URL <- "https://api.prosper.com/v1/security/oauth/token"
ClientID_Username <- "<prosper api key>"
ClientSecret_Password <- "<prosper api secret>"
Prosper_Account_Username <- "<username>"
Prosper_Account_Password <- "<password>"
headers <- fromJSON('{ "accept": "application/json", "content-type": "application/x-www-form-urlencoded" }')
payload <- "grant_type=password&client_id=ClientID_Username&client_secret=ClientSecret_Password&username=Prosper_Account_Username&password=Prosper_Account_Password"

# Create the endpoints
prosper_endpoints <- oauth_endpoint(NULL, "authorize", "accessToken",
                          base_url = "https://api.prosper.com/v1/security/oauth/token")

# Create the request app
prosper_app <- oauth_app("prosper_endpoints",
                   key = ClientID_Username,
                   secret = ClientSecret_Password)

# Get OAuth 2.0 credentials
prosper_token <- oauth2.0_token(prosper_endpoints, prosper_app,
                                config_init = headers,
                                user_params = payload)

Получается сообщение об ошибке:

{
"error":" Запрещено ",
" error_description ":" Доступ запрещен "
}

Большое спасибо за помощь!

...