Merge pull request #81 from JamesHWade/feat/azure-stream-chat

Feat/azure stream chat and fix check_url
JamesHWade · Mar 2, 2024 · b9a34c0 · b9a34c0
2 parents e889229 + 23691a6
commit b9a34c0
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/R/harvest-docs.R b/R/harvest-docs.R
@@ -18,10 +18,15 @@ get_hyperlinks <- function(url) {
 
 check_url <- function(url) {
   status <-
-    httr2::request(url) |>
-    httr2::req_error(is_error = function(resp) FALSE) |>
-    httr2::req_perform() |>
-    httr2::resp_status()
+    try(
+      {
+        httr2::request(url) |>
+          httr2::req_error(is_error = function(resp) FALSE) |>
+          httr2::req_perform() |>
+          httr2::resp_status()
+      },
+      TRUE
+    )
   status
 }
 

diff --git a/R/stream-azure-openai.R b/R/stream-azure-openai.R
@@ -14,7 +14,6 @@ stream_chat_azure_openai <- function(prompt = NULL,
     messages = messages
   )
 
-  token <- retrieve_azure_token()
 
   response <-
     httr2::request(Sys.getenv("AZURE_OPENAI_ENDPOINT")) |>
@@ -28,6 +27,7 @@ stream_chat_azure_openai <- function(prompt = NULL,
     )
 
   if (use_token) {
+    token <- retrieve_azure_token()
     response <- response |> httr2::req_auth_bearer_token(token = token)
   }