From 99a396e1cb0419c0715725c77fee87bf586e87e0 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Mon, 6 Nov 2023 15:58:17 -0800 Subject: [PATCH] use client= argument in token_fetch() (#538) --- R/bq-auth.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/bq-auth.R b/R/bq-auth.R index 7f840ee5..5a5e6d29 100644 --- a/R/bq-auth.R +++ b/R/bq-auth.R @@ -75,7 +75,7 @@ bq_auth <- function(email = gargle::gargle_oauth_email(), cred <- gargle::token_fetch( scopes = scopes, - app = bq_oauth_client() %||% gargle::tidyverse_client(), + client = bq_oauth_client() %||% gargle::tidyverse_client(), email = email, path = path, package = "bigrquery", @@ -194,7 +194,7 @@ bq_auth_configure <- function(client, path, app = deprecated()) { } stopifnot(is.null(client) || inherits(client, "gargle_oauth_client")) - .auth$set_app(client) + .auth$set_client(client) invisible(.auth) } @@ -202,7 +202,7 @@ bq_auth_configure <- function(client, path, app = deprecated()) { #' @export #' @rdname bq_auth_configure bq_oauth_client <- function() { - .auth$app + .auth$client } #' Get info on current user