我有一个使用 Instagram API 的 Shiny 应用程序,并且需要访问令牌。在本地运行时,我可以使用
full_url <-oauth_callback()
full_url <- gsub("(.*localhost:[0-9]{1,5}/).*", x=full_url, replacement="\\1")
print(full_url)
获取回调 url 以注册 Instagram。部署我的应用程序后,我将如何获取此 url?
此外,这可能是相关的,当部署应用程序时,我收到一个错误:
Error : oauth_listener() needs an interactive environment
我从不明确使用 oauth_listener(),所以我不知道如何解决这个问题。我所有的 oauth 相关代码如下:
instagram <- oauth_endpoint(
authorize="https://api.instagram.com/oauth/authorize",
access="https://api.instagram.com/oauth/access_token",)
my_app <- oauth_app(app_name, client_id, client_secret)
ig_oauth <- oauth2.0_token(instagram, my_app, scope="basic", type="application/x-www-form-urlencoded", cache=FALSE)