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

@@ -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