针对编码错误的API调用github'需要一个交互式环境'

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.

有任何建议或解决方法吗？