2

我有 googlesheets4 使用以下代码在 shinyapps.io 中工作：

  gs4_auth(
email = "me@email.com",
path = NULL,
scopes = "https://www.googleapis.com/auth/drive",
cache = "path_to_cache",
use_oob = FALSE,
token = NULL)

我在本地运行它，这需要初始浏览器身份验证并下载某种文件。

只要我将该文件与我的应用程序一起上传到 shinyapps.io，它就可以工作（即在需要时刷新令牌）。

但是，据我了解，这是使用 googlesheets4 自己的 Google API 设置，这些设置是为了让每个人都可以轻松使用。

缺点是，由于很多人都在共享这个 API，他们有时（包括我自己）会达到数据限制并得到 429 RESOURCE EXHAUSTED 错误。这将在此处讨论。

好的，所以我已按照此处和此处的说明进行操作，并在已提供的身份验证块之前添加了以下代码：

if (interactive()){
  # Desktop Client ID
  google_app <- httr::oauth_app(
    "my-awesome-google-api-wrapping-package",
    key = "mykey_for_desktop_app",
    secret = "mysecret"
  )
}else{
  # Web Client ID
  google_app <- httr::oauth_app(
    "my-awesome-google-api-wrapping-package",
    key = "mykey_for_web_app",
    secret = "mysecret"
  )
}

# API key
google_key <- "My-API-KEY"
gs4_auth_configure(app = google_app, api_key = google_key)
# Also configure google drive to use my API
drive_auth_configure(app = google_app, api_key = google_key)

所以这似乎在本地工作（例如在 RStudio 中），我可以在我的 Google Cloud API 仪表板上看到活动。

然而，虽然这在短时间内（例如 10 分钟）有效，但即使上传到 shinyapps.io，自动刷新似乎也会失败，因为我很快就会感到害怕：

“无法获取 Google 凭据。您是否在非交互式会话中运行 googlesheets4？”

有人能指出我做错了什么吗？

再次 - 只要我不尝试使用自己的 API 设置（第二个代码块），它就可以正常工作。

4

2 回答 2

2

好的，很确定我已经完成了这个工作......

真正有帮助的是这里的 YouTube 视频，并且使这一点更加清晰。

我只需要一个服务帐户，它似乎会生成一个我可以使用我的应用程序上传的 json 文件。

即在视频中的 1:03 左右显示了此服务帐户的创建，然后将该电子邮件地址（服务帐户的）添加到我要访问的 Google 表格中，这意味着我可以下载（使用 GoogleDrive ) 并编写（使用 GoogleSheets）。

疯狂的部分是我需要在我的代码中输入以下内容：

drive_auth(path = ".secrets/client_secret.json")
gs4_auth(path = ".secrets/client_secret.json")

即这两行（加上为服务帐户下载的 json 文件）替换了我在我的 OP 中发布的所有代码！

于 2020-12-01T13:06:51.060 回答
0

如果有人正在阅读这篇文章，我正在努力完成 Jimbo（优秀）答案的最后一步，即如何将本地 json 文件上传到 shinyapps.io。

我的工作解决方案：我在闪亮的应用程序文件夹中创建了一个子文件夹，在 app.r 文件旁边，名为“secrets”。我把json文件放在那里。在本地测试所有内容时，我确保将我的工作目录设置为闪亮的应用程序。（注意：不要在闪亮的应用程序代码中包含 setwd() 代码）。我不确定这是否会以某种方式暴露 json 文件，但它必须这样做。

发布到 shinyapps 时，我选中了 Rstudio 建议的所有框以上传文件夹的全部内容（app.r 文件、子文件夹 + 子文件夹中的 json 文件）。我在 app.r 文件中使用了以下路径：

drive_auth(path = "secret/clientsecret.json")
gs4_auth(path = "secret/clientsecret.json")
于 2021-02-03T23:53:33.803 回答