无法在 bigrquery 包下使用 R 对 BigQuery 进行身份验证

Question

我正在尝试使用 bigrquery 包中的 set_service_token 进行非交互式身份验证。

这是我的代码：

library(bigrquery)
set_service_token("client_secret.json")

但它一直显示以下错误消息：

read_input(file) 中的错误：
文件必须是连接、原始向量或文件路径

但是，当我只是读取 JSON 路径时，它可以工作：

lapply(fromJSON("client_secret.json"), names)

$`已安装`
[1] “client_id” “project_id” “auth_uri” “token_uri” “auth_provider_x509_cert_url” “client_secret” “redirect_uris”

谁能帮我解决这个问题？非常感谢！

Answer 1

看起来您的 JSON 文件位于当前目录中，但您需要提供令牌 JSON 文件的完整路径。试试这个：

json_path <- paste(getwd(), "/client_secret.json", sep="")
set_service_token(json_path)

如果还是不行，你可以使用环境变量试试，像这样：

Sys.setenv("CLIENT_SECRET_FILE" = json_path)
set_service_token(Sys.getenv('CLIENT_SECRET_FILE'))

或者，尝试提供 JSON 内容，如下所示：

set_service_token(toJSON(fromJSON("client_secret.json"), pretty = TRUE))

---

您也可以尝试使用gar_auth_service:

library(googleAuthR)
gar_auth_service(
  json_file = "client_secret.json" # or better use the full path instead
)

希望它有效。