使用 googlesheets4 在 R 中通过闪亮连接到 googlesheets

Question

我正在尝试使用此 example 的更新版本通过闪亮连接到私人 googlesheet，并将此应用程序部署在 shinyapps.io 服务器上。用户无需对 google 帐户进行身份验证，因为该应用使用指定的预先存在的 googlesheet。

我已经关注了这个example（部分复制到这里），试图将令牌保存到我闪亮的应用程序中：

# previous googlesheets package version:
shiny_token <- gs_auth() # authenticate w/ your desired Google identity here
saveRDS(shiny_token, "shiny_app_token.rds")

但尝试将其更新为 googlesheets4，如下所示：

ss <- gs4_get("MY GOOGLE DOC URL") # do the authentication once, manually.
ss
gs4_has_token() # check that the token exists

# get token
ss_token <- gs4_token()
# save the token
save(ss_token, file = "APP PATH ... /data/tk.rdata")

然后在应用中，我把这段代码放在shinyApp()函数之外。

load("data/tk.rdata")

googlesheets4::gs4_auth(token = ss_token, use_oob = T)

在应用程序中，我使用从应用程序获得的硬编码 id 从应用程序连接到谷歌文档 ss$spreadsheet_id 以上。该应用程序在本地运行。

尝试将应用程序部署到服务器后，我收到错误“...无法获取 google 凭据。您是否在非交互式会话中运行 googlesheets4？...等”我认为令牌将包含足够的信息。

如果有人可以为我提供设置指南，并评论这种方法（在 shinyapps.io 上保存令牌）是否安全，我将不胜感激？

我查看了其他示例，但似乎大多数是针对以前版本的 googlesheets

Answer 1

2021 年 7 月 21 日，googlesheets4 deprecated some of its function when releasing v1.0.0。

我已更新 volfi's answer 以使用 googlesheets4 v1.0.0。
它在部署到 shinyapps.io 时也可以工作。

设置非交互式身份验证

library(googlesheets4)
    
# Set authentication token to be stored in a folder called `.secrets`
options(gargle_oauth_cache = ".secrets")

# Authenticate manually
gs4_auth()

# If successful, the previous step stores a token file.
# Check that a file has been created with:
list.files(".secrets/")

# Check that the non-interactive authentication works by first deauthorizing:
gs4_deauth()

# Authenticate using token. If no browser opens, the authentication works.
gs4_auth(cache = ".secrets", email = "your@email.com")

示例 - 将数据添加到 Google 表格

在Google Sheets 上创建一个 Google 表格并复制表格的网址。

library(googlesheets4)
gs4_auth(cache=".secrets", email="your@email.com")

ss <- gs4_get("https://docs.google.com/path/to/your/sheet")
sheet_append(ss, data.frame(time=Sys.time()))

如果将您的应用部署到 shinyapps.io，请确保将文件部署到 .secrets 文件夹中。

Answer 2

只需按照this 链接中的说明进行操作：

# designate project-specific cache
options(gargle_oauth_cache = ".secrets")
# check the value of the option, if you like
gargle::gargle_oauth_cache()
# trigger auth on purpose to store a token in the specified cache
# a broswer will be opened
googlesheets4::sheets_auth()
# see your token file in the cache, if you like
list.files(".secrets/")
# sheets reauth with specified token and email address
sheets_auth(
 cache = ".secrets",
 email = "youremail"
 )