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.

提案や回避策はありますか？