Question

library(httr)
library(httpuv)
library(jsonlite)
myapi <- oauth_app("github", "0b23485d6d6e55143372", 
                   secret = "xxxxxxxxxxxxxxxxxxxxxxx")
github_token <- oauth2.0_token(oauth_endpoints("github"), myapi)
request1 <- GET("https://api.github.com/users/jtleek/repos", config(token = github_token))
myjson <- content(request1)
myjson2 <- jsonlite::fromJSON(toJSON(myjson))
View(myjson2)
stop_for_status(request1)

＃

我使用R 3.2.5和Win7 32位。有两个问题。一个是在最后一行代码之后，我收到错误错误：未经授权（HTTP 401）。

And the second is when I tried to see what the github_token is, 
<Token>
<credentials> error, error_description, error_uri

＃

最后 myjson2 不是数据框，只是列表

$message
[1] "Bad credentials"

$documentation_url
[1] "https://developer.github.com/v3"

Answer 1

我遇到了同样的问题，所以我在github页面上创建了一组新的密钥和密钥。顺便说一下，我认为你不需要使用jsonlite ::转换，格式应该没问题。我使用了以下内容：

gtoken <- config(token = github_token)
req <- with_config(gtoken, GET("https://api.github.com/users/jtleek/repos"))
con_req <- content(req)

find_create <- function(x,myurl) {
  if (x$html_url == myurl) {
    print(x$created_at)
  }
}

lapply(con_req,find_create,myurl ="https://github.com/jtleek/datasharing")

R连接到github API但是凭据错误

1 个答案: