如何用R编程语言请求Xero API？

Question

我正在尝试使用R编程语言通过其API请求XERO演示公司数据。

我收到以下错误：

Error in init_oauth1.0(self$endpoint, self$app, permission = self$params$permission,  : 
  Unauthorized (HTTP 401).

此外，还有一条警告消息：

In is.na(x) : is.na() applied to non-(list or vector) of type 'NULL'

这是我的代码：

# establish connection authentication

xero_endpoint <- oauth_endpoint(
  request = "RequestToken",
  authorize="Authorize", 
  access = "AccessToken",
  base_url = "https://api.xero.com/oauth")

# use the key XERO provided
xero_app <- oauth_app("church_xero_in_r",
          key = xero_key,
          secret = xero_secrect
          )

# connect to Xero API
oauth1.0_token(endpoint = xero_endpoint, app = xero_app)

基本上，我试图通过使用提供的密钥来连接Xero API。 我在Google上搜索了很多文章，但似乎没有一篇可以解决我的问题。