未能在bigrquery包中使用R验证BigQuery

Question

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

这是我的代码：

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

但是它不断地显示以下错误信息：

Read_input(文件)中的错误： 另一文件必须是连接、原始向量或文件路径。

但是，当我简单地阅读JSON路径时，它是有效的：

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

$installed 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))

您也可以尝试使用服务

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

希望它能成功。