Я хотел бы получить доступ к 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). Не удалось получить токен доступа. "