r - 如何使用服务帐户和bigrquery软件包进行身份验证？

我已经能够使用googleAuth和bigQueryR使用与服务帐户关联的json文件进行身份验证。

# Load Packages
global.packages <- c("bigQueryR", "googleAuthR")

### Apply require on the list of packages; load them quietly
lapply(global.packages, require, character.only = TRUE, quietly = TRUE)

Sys.setenv("GCS_AUTH_FILE" = "json_file_location")

#Authenticate Google BQ
googleAuthR::gar_attach_auto_auth("https://www.googleapis.com/auth/bigquery",
                                  environment_var = "GCS_AUTH_FILE")

这有效，我能够开始使用bigQueryR中的函数。

现在假设我仅限于bigrquery软件包，如何使用带有此软件包的服务帐户进行身份验证？

我看了这里的文档无济于事:
https://cran.r-project.org/web/packages/bigrquery/bigrquery.pdf

我在互联网上遇到的资源建议使用bigQueryR软件包代替bigrquery。

例如，这个相关的stackoverflow问题:
Use bigrquery auth in shiny application。

但是我只需要bigrquery中可用的功能。

最佳答案

set_service_token()现在已弃用。

使用bq_auth()代替:

bq_auth(path = "location_of_service_token.json")

资料来源:https://rdrr.io/cran/bigrquery/man/bigrquery-deprecated.html