Question

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

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

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

这是我的代码，我添加了一个“＆amp; 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

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

EDIT //

感谢它有效，我还有另一个关于“查询”参数的问题。我添加了一个查询“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")

Answer 1

我写了一个与Lending Club API一起使用的软件包，它可以让您更轻松地解决这个问题。试试这个：

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

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

vignette("LendingClub")

Answer 2

使用RCurl正确配置SSL内容可能会有点混乱。我推荐httr。

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

然后，当您拥有Authortization值时，您可以提出类似

的请求

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

由于我没有帐户，我不确定回复是什么，但您应该可以通过

访问它

content(rr)

Lending Club API与R

2 个答案: