使用 rdrop2 和 drop_auth() 获取 Dropbox API 的刷新令牌

Question

我正在尝试创建一个闪亮的应用程序，它使用包 rdrop2 链接到我的保管箱。

我已成功部署该应用程序，它按计划运行了大约 4 个小时。但是，我需要持久的离线访问。 Dropbox 帮助页面显示我需要“刷新令牌”。

目前，为了获取我正在使用的令牌：

library(rdrop2)
token <- drop_auth() # gets credentials

saveRDS(token, "droptoken.rds") # saves credentials


token<-readRDS("droptoken.rds") # read in credentials

drop_auth(new_user = FALSE,
          cache = TRUE,
          rdstoken = "droptoken.rds")

ui <- # some UI code



server <- function(input, output,session) {
  # some server code
}

shinyApp(ui = ui, server = server)

这将创建一个具有“sl”的令牌。访问令牌（短期），到期时间为 14400，即 4 小时。 4 小时后，该应用程序由于“未经授权的 HTTP 401”错误而不再运行。

有人可以帮助我了解如何调整此代码以获取刷新令牌吗？

注意：dropbox 不再允许无期限的令牌（截至 2021 年 9 月），因此我需要沿着刷新令牌路线进行。

Answer 1

我不知道您是否仍然需要帮助，但我最近的任务是在实习计划中解决这个问题，并设法找到解决方案。

目前，rdrop2 的 drop_auth() 函数将生成具有以下凭据的令牌：access_token、token_type、expires_in、uid、account_id。由于访问令牌现在仅持续 4 小时，因此我们需要刷新令牌作为凭证的一部分，以便我们可以在每次过期时获得新的访问令牌。

要生成带有刷新令牌的令牌对象，我们需要修改 drop_auth() 函数内的授权端点。这看起来像这样：

library(rdrop2)

.dstate <- new.env(parent = emptyenv())

drop_auth_RT <- function (new_user = FALSE, key = "mmhfsybffdom42w", secret = "l8zeqqqgm1ne5z0", cache = TRUE, rdstoken = NA) 
{
  if (new_user == FALSE & !is.na(rdstoken)) {
    if (file.exists(rdstoken)) {
      .dstate$token <- readRDS(rdstoken)
    }
    else {
      stop("token file not found")
    }
  }
  else {
    if (new_user && file.exists(".httr-oauth")) {
      message("Removing old credentials...")
      file.remove(".httr-oauth")
    }
    dropbox <- httr::oauth_endpoint(authorize = "https://www.dropbox.com/oauth2/authorize?token_access_type=offline",
                                    access = "https://api.dropbox.com/oauth2/token")
    # added "?token_access_type=offline" to the "authorize" parameter so that it can return an access token as well as a refresh token
    dropbox_app <- httr::oauth_app("dropbox", key, secret)
    dropbox_token <- httr::oauth2.0_token(dropbox, dropbox_app, 
                                          cache = cache)
    if (!inherits(dropbox_token, "Token2.0")) {
      stop("something went wrong, try again")
    }
    .dstate$token <- dropbox_token
  }
}

refreshable_token <- drop_auth_RT()

这将生成一个带有这些凭证的令牌： ; access_token、token_type、expires_in、refresh_token、uid、account_id。新令牌现在将具有刷新令牌，HTTP API 可使用该刷新令牌自动刷新访问令牌。

调用 rdrop2 函数时指定新令牌非常重要，否则它将无法工作。示例：

> drop_dir()
Error in drop_list_folder(path, recursive, include_media_info, include_deleted,  : 
  Unauthorized (HTTP 401).
> drop_dir(dtoken = refreshable_token)
# A tibble: 4 x 11
  .tag   name      path_lower path_display id    client_modified server_modified rev      size
  <chr>  <chr>     <chr>      <chr>        <chr> <chr>           <chr>           <chr>   <int>
1 folder Screensh~ /screensh~ /Screenshots id:_~ NA              NA              NA         NA

希望这有帮助！