Fix a bad interaction with check_exclusive() in chat_azure() (#284)

This was somehow masked in my local testing due to `devtools::load_all()` but reported in #274. This commit makes the exclusive check before the deprecation check, which resolves the issue. Signed-off-by: Aaron Jacobs <[email protected]>
tidyverse · Jan 28, 2025 · 7a61c30 · 7a61c30
1 parent 33bacb3
commit 7a61c30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/provider-azure.R b/R/provider-azure.R
@@ -57,6 +57,7 @@ chat_azure <- function(endpoint = azure_endpoint(),
                        credentials = NULL,
                        api_args = list(),
                        echo = c("none", "text", "all")) {
+  check_exclusive(token, credentials, .require = FALSE)
   if (lifecycle::is_present(token)) {
     lifecycle::deprecate_warn(
       when = "0.1.1",
@@ -73,7 +74,6 @@ chat_azure <- function(endpoint = azure_endpoint(),
   check_string(deployment_id)
   api_version <- set_default(api_version, "2024-10-21")
   turns <- normalize_turns(turns, system_prompt)
-  check_exclusive(token, credentials, .require = FALSE)
   check_string(api_key, allow_null = TRUE)
   api_key <- api_key %||% Sys.getenv("AZURE_OPENAI_API_KEY")
   check_string(token, allow_null = TRUE)