commit 066e262cc3a53c45ed072e0f2dfcb28e3cadea32
author ItsAlexWhite <46671286+ItsAlexWhite@users.noreply.github.com> Tue Mar 21 11:04:52 2023 +0300
committer ItsAlexWhite <46671286+ItsAlexWhite@users.noreply.github.com> Tue Mar 21 11:04:52 2023 +0300
tree 052e71acc023993764eaa390f2182ab1da802a93
parent 60f638b344674e75461dde61156a77dc7c3fc298

add error handling

If response code isn't 200, show warning message

R/chatgpt_single.R

diff --git a/R/chatgpt_single.R b/R/chatgpt_single.R
index c2497a6..798cc15 100644
--- a/R/chatgpt_single.R
+++ b/R/chatgpt_single.R
@@ -87,6 +87,11 @@
 
   request_content = httr::content(request_base)
 
+  if(request_base$status_code != 200){
+    warning(paste0("Request completed with error. Code: ", request_base$status_code
+                   , ", message: ", request_content$error$message))
+  }
+
   if(n == 1){
     core_output = data.table::data.table('n' = 1
                                          , 'prompt_role' = prompt_role