From b283172349636675cbd200e501c3bf0d4aa88d65 Mon Sep 17 00:00:00 2001
From: Greg Freedman Ellis <greg@crunch.io>
Date: Thu, 9 May 2024 15:31:53 -0500
Subject: [PATCH] [187579809]: fix for unexpected automation error structure

---
 R/automation.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/automation.R b/R/automation.R
index 151e3c479..317125298 100644
--- a/R/automation.R
+++ b/R/automation.R
@@ -296,9 +296,15 @@ crunchAutomationErrorHandler <- function(response) {
     if (inherits(response, "response")) {
         msg <- http_status(response)$message
         response_content <- content(response)
-    } else {
+    } else if (is.list(response$message)) {
         msg <- response$message$description
         response_content <- response$message
+    } else if (is.character(response$message)) {
+        # Happens when a 500 error occurs during async automation messages
+        halt(response$message)
+    } else {
+        # We're totally confused by the response, but we know there was an error
+        halt("Something went when running the automation script.")
     }
     automation_messages <- try(response_content$resolution, silent = TRUE)