R auf Github API conncet sondern ein Beglaubigungsschreiben

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) 

#

Ich verwende R 3.2.5 und Win7 32 Bit-Fehler. Es gibt 2 Probleme. Einer ist nach der letzten Zeile des Codes, ich habe einen Fehler Fehler: Nicht autorisiert (HTTP 401).

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

#

Schließlich myjson2 ist kein Datenrahmen, sondern nur eine Liste

$message 
[1] "Bad credentials" 

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

Vielen Dank!

Answer 1

Ich hatte das gleiche Problem, so habe ich einen neuen Satz von Schlüssel und Geheimnis auf Github-Seite erstellt. Übrigens, ich glaube nicht, dass Sie mit jsonlite :: konvertieren müssen, das Format sollte in Ordnung sein. Ich habe folgendes verwendet:

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")