Доступ к OAuth2 API домена domain.au из R - PullRequest
0 голосов
/ 30 марта 2019

Я хотел бы получить доступ к API домена domain.com.au, сайта с австралийскими списками недвижимости, от R.

Я пытался получить токен доступа с помощью Client Credentials, как описано на этом сайте: https://developer.domain.com.au/docs/authorisation/client-credentials-grant. Он говорит: «Сделайте запрос POST к конечной точке https://auth.domain.com.au/v1/connect/token, используя ваши client_id и client_secret, а также со списком необходимых областей. См. ссылки API для списка областей, необходимых для каждой конечной точки. Попытка использовать область, не включенную в ваш план, приведет к ошибке 400 invalid_scope. Этот запрос должен быть аутентифицирован используя базовую аутентификацию с client_id и client_secret, соответствующими имени пользователя и паролю соответственно. "

# Install and/or load packages
packageList <- c("httr", "jsonlite")
invisible(GetPackages(packageList))

# Endpoint as instructed on https://developer.domain.com.au/docs/
# authorisation/client-credentials-grant.
domain_endpoint <- oauth_endpoint(
  authorize = NULL,
  access = "https://auth.domain.com.au/v1/connect/token"
)

# Create application on https://developer.domain.com.au/applications/. 
# Choose "Innovation" plan for "Properties & Locations" package. 
# Replace clientID and secret in the code below.
domain_app <- oauth_app(
  appname = "application1",
  key = "clientID",
  secret = "secret"
)

# Request token as instructed on https://developer.domain.com.au/docs/
# authorisation/client-credentials-grant.
# Use scope from https://developer.domain.com.au/docs/
# endpoints/salesresults/salesresults_head
domain_token <- oauth2.0_token(
  endpoint = domain_endpoint,
  app = domain_app,
  client_credentials = T,
  scope = c("api_salesresults_read"),
  use_basic_auth = T
)`

Я ожидаю получить токен доступа, однако получаю сообщение «Ошибка в oauth2.0_access_token (конечная точка, приложение, код = код, user_params = user_params,: неверный запрос (HTTP 400). Не удалось получить токен доступа. "

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...