r - httr github-API 回调 URL 问题

Question

我正在使用 httr v0.2 包现在也可以使用 github api。但我正在努力克服oauth2.0(...)在我进入我的应用程序的浏览器页面的部分中，单击“允许”，然后重定向到回调 URL 页面。

httr github 演示建议使用回调 URL 作为 http://localhost:1410但是当我被重定向到该页面时，谷歌浏览器提示它无法连接到该页面并且它被重定向到的页面是 http://localhost:1410/?error=redirect_uri_mismatch&state=DZNFcm8tnq ...所以我尝试了一堆其他端口和整体 URL 都没有成功...

什么是另一个可以工作的回调 URL 和 URL？

下面是我使用的代码

require(httr)
## Loading required package: httr
github.app <- oauth_app("github","xxxxx", "xxxxxxxxxxxxxxx")
github.urls <- oauth_endpoint(NULL, "authorize", "access_token",base_url = "https://github.com/login/oauth")
github.token <- oauth2.0_token(github.urls,github.app)
## Loading required package: Rook
## Loading required package: tools
## Loading required package: brew
## starting httpd help server ... done
## Waiting for authentication in browser...

这是当我被定向到一个具有“允许”按钮的页面时，我点击它之后我被重定向到无法连接到本地主机的谷歌浏览器页面:1410

Answer 1

您应该更新 httr包到最新版本(现在是 0.3 - 在 CRAN 中可用)。我从 httr 中找到了相关示例(版本 0.3)演示:

library(httr)

# 1. Find OAuth settings for github:
#    http://developer.github.com/v3/oauth/
oauth_endpoints("github")

# 2. Register an application at https://github.com/settings/applications
#    Insert your values below - if secret is omitted, it will look it up in
#    the GITHUB_CONSUMER_SECRET environmental variable.
#
#    Use http://localhost:1410 as the callback url
myapp <- oauth_app("github", "56b637a5baffac62cad9")

# 3. Get OAuth credentials
github_token <- oauth2.0_token(oauth_endpoints("github"), myapp)

# 4. Use API
req <- GET("https://api.github.com/rate_limit", config(token = github_token))
stop_for_status(req)
content(req)

您可以通过 demo("oauth2-github", package = "httr", ask = FALSE) 获得它命令。