使用r中的Oauth2授权访问403之后的Xero代码

library(httr)

# 定义OAuth2授权参数
client_id <- "YOUR_CLIENT_ID"
client_secret <- "YOUR_CLIENT_SECRET"
access_token_url <- "https://api.xero.com/oauth2/token"
authorize_url <- "https://login.xero.com/identity/connect/authorize"
redirect_uri <- "https://your-redirect-uri.com"

# 获取授权码
auth_code <- oauth2.0_authorize_url(
  endpoint = oauth_endpoint(authorize_url, access_token_url),
  app = oauth_app(client_id, client_secret),
  redirect_uri = redirect_uri
)

# 在浏览器中打开授权链接，用户登录并授权后会重定向到指定的redirect_uri，并带上授权码

# 使用授权码获取访问令牌
token <- oauth2.0_token(
  endpoint = oauth_endpoint(access_token_url, authorize_url),
  app = oauth_app(client_id, client_secret),
  grant_type = "authorization_code",
  code = "AUTHORIZATION_CODE",
  redirect_uri = redirect_uri
)

# 使用访问令牌访问Xero的API
response <- GET(
  url = "https://api.xero.com/api.xro/2.0/...",
  add_headers(Authorization = paste("Bearer", token$access_token))
)

# 处理响应数据
data <- content(response)