From d7334248d750fcb496bd1548cfa907532ddbc230 Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Fri, 12 Jul 2024 12:07:38 +0200
Subject: [PATCH] Check password more lazily (#499)

Maybe fixes #498
---
 R/oauth-flow-password.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/oauth-flow-password.R b/R/oauth-flow-password.R
index 88bf2f65..620ad2cc 100644
--- a/R/oauth-flow-password.R
+++ b/R/oauth-flow-password.R
@@ -33,7 +33,6 @@ req_oauth_password <- function(req,
                                cache_disk = FALSE,
                                cache_key = username) {
 
-  password <- check_password(password)
   params <- list(
     client = client,
     username = username,
@@ -56,12 +55,11 @@ oauth_flow_password <- function(client,
     interactive = is.null(password)
   )
   check_string(username)
-  password <- check_password(password)
 
   oauth_client_get_token(client,
     grant_type = "password",
     username = username,
-    password = password,
+    password = check_password(password),
     scope = scope,
     !!!token_params
   )