r - (R) 使用 httr 为 Flickr 生成一个 oauth 1.0 令牌

Question

我正在尝试在 httr 中为我的 Flickr 应用程序生成访问令牌。我的目标是从某些地理坐标下载图像。据我了解，这不是 FlickrAPI 包可以做的事情，所以我决定使用 httr。

运行下面的代码会打开授权页面，但是当我提交授权时，我得到一个本地主机错误（本地主机意外关闭了连接）。

我在这里忘记了什么？如果相关的话，我还没有设置回调 URL。

library(httr)

setwd("G:\\Project\\R Code\\")

api_key <- "<TOKEN>"
secret <- "<SECRET>"

flickr.app <- oauth_app("App Name", api_key, secret)

flickr.endpoint <- oauth_endpoint(
  request = "https://www.flickr.com/services/oauth/request_token",
  authorize = "https://www.flickr.com/services/oauth/authorize",
  access = "https://www.flickr.com/services/oauth/access_token"
)

token <- oauth1.0_token(
  flickr.endpoint,
  flickr.app,
  cache = FALSE
) 

标签： rapioauthflickrhttr