From 7d9b9c493d2844bede1451402246dc3dcb34ef23 Mon Sep 17 00:00:00 2001
From: Gregory Porter <greg.e.porter@gmail.com>
Date: Tue, 12 Mar 2024 15:43:46 -0500
Subject: [PATCH] Add warning to CreateHIT.R

Should the do.call on line 299 fail, CreateHIT will now send a warning message with the full response object. The response object contains additional error information received from mTurk
---
 R/CreateHIT.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/CreateHIT.R b/R/CreateHIT.R
index c68f409..4d49917 100644
--- a/R/CreateHIT.R
+++ b/R/CreateHIT.R
@@ -302,6 +302,7 @@ CreateHIT <-
     # Validity check
     if(class(response) == "try-error") {
       warning("Invalid Request")
+      warning(response)
     } else {
       HITs <- emptydf(1, 3, c("HITTypeId", "HITId", "Valid"))
       HITs$HITTypeId <- response$HIT$HITTypeId