0

我正在尝试使用带有 R 的 Lending Club 的 API 提取数据： https ://www.lendingclub.com/developers/lc-api.action

但我不确定该怎么做。这就是我现在所拥有的，但我不断收到未经授权的错误。我打电话给 Lending Club 寻求 API 支持，因为它没有指定 API 密钥的放置位置，不幸的是，他们的 API 没有任何支持。他们说所有信息都在网站上。

我有一个 Lending Club 帐户和一个 API 密钥。

这是我的代码，我添加了一个“&api-key=”，因为我对不同的 API 使用了类似的东西。

library(rjson)
library(RCurl)
library(jsonlite)

apikey <- "pP0tK321JWldXCMYHJ8VmIhMHuM="
url <- "https://api.lendingclub.com/api/investor/v1/loans/listing"
url <- paste0(url,"&api-key=",apikey)

getURL(url)
fromJSON(url)

输出：

> getURL(url)
Error in function (type, msg, asError = TRUE)  : 
  SSL certificate problem: self signed certificate in certificate chain
> fromJSON(url)
Error in download_raw(txt) : client error: (401) Unauthorized

如果有人用 R 使用 Lending Club 的 API，请给我一些指导。谢谢！

编辑//

谢谢它有效，我对“查询”参数还有另一个问题。我添加了一个查询“showall”，但如何添加 TRUE？

如果单击以下链接，它将显示查询选项。

https://www.lendingclub.com/developers/listed-loans.action

rr <- GET("https://api.lendingclub.com/api/investor/v1/loans/listing", 
          add_headers(Authorization="key"), query = "showall")
4

2 回答 2

1

我编写了一个包来使用 Lending Club API，它应该可以让您更轻松地解决这个问题。尝试这个：

install.packages("LendingClub")
library(LendingClub)
LC_CRED<- MakeCredential(investorID, APIkey)
ListedLoans(showAll=TRUE)$content

通过阅读小插图，您可以看到更多示例：

vignette("LendingClub")
于 2017-02-23T02:29:49.343 回答
0

正确配置 SSL 内容RCurl可能有点麻烦。我推荐httr。

看起来服务需要授权标头，而不是 API 密钥。按照该页面上的信息为您的帐户生成一个。

然后，当您拥有授权值时，您可以提出您的请求，例如

library(httr)
rr <- GET("https://api.lendingclub.com/api/investor/v1/loans/listing", 
    add_headers(Authorization="Vkqakl1lAygRyXRwlKCOyHWG4DE"))

由于我没有帐户，因此我不确定响应会是什么，但是您应该可以使用它访问它

content(rr)
于 2015-02-28T03:56:33.577 回答