通过 ouath 和 R 连接到 LinkedIn

Question

已使用 R 成功连接到 Twitter，并尝试利用该代码连接到 LinkedIn，但无法使其正常工作。

我认为代码很接近，但不知何故最后一步返回错误。

目前，我可以让 LinkedIn 在握手后立即返回一个令牌，但是当我在浏览器中查询它时，我从 linkedIn 收到一个错误，说需要一个 client_id。

https://www.linkedin.com/uas/oauth2/authorization?oauth_token=<...>

创建 OAuth 文件的 R 代码如下，LinkedIn 提供的密钥已被删除。

rm(list=ls())

library(ROAuth)

reqURL <- "https://api.linkedin.com/uas/oauth/requestToken"
accessURL <- "https://api.linkedin.com/uas/oauth2/accessToken"
authURL <- "https://www.linkedin.com/uas/oauth2/authorization"
consumerKey <- "<...>"
consumerSecret <- "<...>"
#oAuthKey <- "<...>"
#oAuthSecret <- "<...>"

linkedInCred <- OAuthFactory$new(consumerKey=consumerKey,
                              consumerSecret=consumerSecret,
                              requestURL=reqURL,
                              accessURL=accessURL,
                              authURL=authURL)

linkedInCred$handshake()

credentials$OAuthRequest(testURL, "GET")


save(linkedInCred, file="credentials.RData")

Answer 1

请改用httr。 Hadley 在他的包中有一个例子：https://github.com/hadley/httr/blob/master/demo/oauth2-linkedin.r

这里是例子

library("httr")
myapp <- oauth_app(appname = "scottsapp", key = "<key>", secret = "<secret>")
TokenLinkedIn <- R6::R6Class("TokenLinkedIn", inherit = Token2.0, list(
  sign = function(method, url) {
    url <- parse_url(url)
    url$query$oauth2_access_token <- self$credentials$access_token
    list(url = build_url(url), config = config())
  }
))
token <- TokenLinkedIn$new(endpoint = oauth_endpoints("linkedin"), app = myapp)