标签: rdrop2

我正在尝试创建一个闪亮的应用程序，它使用包 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 月），因此我需要沿着刷新令牌路线进行。