如何在XING使用OAuth和R

我正在尝试使用ROAuth（v0.9.2）对XING API（API.XING.com）进行身份验证

我仔细检查了我的密钥和URL，所以我很确定这不是错误的原因

谁能告诉我我做错了什么

是否有方法提取服务器请求和响应以进行错误分析

谢谢，

---

Chris

我建议使用hadleywickham的

httr

包，因为我发现它在处理api时特别有用。别忘了仔细阅读所有相关文档

看起来XING使用的是OAuthV1，所以请查看相关的httr文档

我不确定你是否已经知道这一点…但这有点像两个阶段的过程

首先，您将消费者密钥和密码发送给XING，XING将返回给您一个令牌

然后，在以下三个方面：

1） 用户密钥， 2） 消费者秘密和 3） 刚才提供的代币

您能否访问XING设置的所有API调用……不过，您可能需要XML来高效地解释响应

不确定这是否有效，但大致如下：

require(httr)
xing.app <- oauth_app("xing",key="xxxxxxxxxx", secret="xxxxxxxxxxxxxxx")
xing.urls <- oauth_endpoint(NULL, "authorize", "access_token",base_url = "https://api.xing.com/v1/")
xing.token <- oauth1.0_token(xing.urls, xing.app)
xing.token

希望这能有所帮助……代码中可能有一些错误，因为我没有您的消费者密钥或密码，因此未对其进行测试。我还没有完全阅读文档，但我认为这并不遥远…请随时更正…当您实际测试它时

---

出于好奇……您使用API的目的是什么？

请告诉我下面的答案是否有效……当然，我想下周我会继续讨论这个问题。您最终让它工作了吗？我也在尝试同样的方法，但在握手时，我总是得到“需要授权”。不确定这里发生了什么，但API目前似乎不稳定。很抱歉回答得太晚。它不起作用。我得到的最好结果是init_oauth1.0（端点、应用程序、权限=params$permission）中出现了一个

错误：服务器错误：（504）网关超时

您提出的解决方案仍然有效吗？我在handle\u url（handle，url，…）中得到错误

错误：在尝试代码段时，必须至少指定url或handle

中的一个。@majom:FWIW，set

base\u url=”https://api.xing.com/v1“

和

request=“request\u token”

而不是

oauth\u端点内的
NULL
。现在，它应该又起作用了。
Error in credentials$handshake(ssl.verifypeer = FALSE) : 
  Invalid response from site, please check your consumerKey and consumerSecret and try again.

require(httr)
xing.app <- oauth_app("xing",key="xxxxxxxxxx", secret="xxxxxxxxxxxxxxx")
xing.urls <- oauth_endpoint(NULL, "authorize", "access_token",base_url = "https://api.xing.com/v1/")
xing.token <- oauth1.0_token(xing.urls, xing.app)
xing.token

user.signature <- sign_oauth1.0(xing.app, token = token.string.from.xing.token, token_secret = token.secret.from.xing.token)

# so I think as an example you can have this...
id <- "yyyyyyy"
GET(url= paste0("https://api.xing.com/v1/users/",id), config=user.signature)