library(bigrquery) library(DBI)

json_path <- "path_to_your_service_account_key.json"

Set environment variable for service account JSON

Sys.setenv(GOOGLE_APPLICATION_CREDENTIALS = json_path)

Authenticate using the service account

bq_auth(path = json_path)