使用Httr进行OAuth身份验证

Question

我正在阅读本教程

https://github.com/hadley/httr/blob/master/demo/oauth2-github.r

我写了这段代码

library(httr)
library(httpuv)
client_secret <- "9821663e0c51b4531ea0ef62224ab78a1xxxxxxxxx"
client_id <- "62d0280a5824b2a6393b"
github.app <- oauth_app("github", client_id, client_secret)
github_token <- oauth2.0_token(oauth_endpoints("github"), github.app)

执行上面的最后一行后，我的RStudio会话崩溃并显示错误消息

adding .httr-oauth to .gitignore 
waiting for authentication in browser...
Press Esc/Ctrl + C to abort
Error in withCallingHandlers(tryCatch(evalq((function (hash=(TRUE)
parent = parent.frame, : object '.rcpp_warning_recorder' not found

它还会打开浏览器，转到http://localhost:1410/?code=7abea00044ed4529659c&state=tgQDIm9up1并显示未找到的页面