r - 编织错误“需要交互式环境”时对 github 的 API 调用

Question

我在 R-Studio 控制台中对 github 的 API 调用工作得很好（httr 包），但每当我尝试编写 pdf 时就会中断。在控制台中，我必须在首次授权我的凭据时手动转到“localhost:1410”，但显然这在编织时无法发生。

```{r}
oauth_endpoints("github")
myapp <- oauth_app("github", "xxxxxxxxxx")
github_token <- oauth2.0_token(oauth_endpoints("github"), myapp)
gtoken <- config(token = github_token)
req <- with_config(gtoken, GET("https://api.github.com/repos/mbostock/d3/stats/participation"))
stop_for_status(req)
result = content(req)
```

产生的错误是

Error: oauth_listener() needs an interactive environment. Execution halted.

有什么建议或解决方法吗？