use client= argument in token_fetch() (#538)

r-dbi · Nov 6, 2023 · 99a396e · 99a396e
1 parent 086757f
commit 99a396e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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,15 +194,15 @@ 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)
 }
 
 #' @export
 #' @rdname bq_auth_configure
 bq_oauth_client <- function() {
-  .auth$app
+  .auth$client
 }
 
 #' Get info on current user