update error handling for data type not found error

Sage-Bionetworks · Jun 7, 2024 · 61b3257 · 61b3257
1 parent acc8e63
commit 61b3257
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/schematic_rest_api.R b/R/schematic_rest_api.R
@@ -6,6 +6,11 @@ check_success <- function(x){
   if (tolower(status$category) == "success") {
     return()
   } else {
+    # Return content text for Data Type errors
+    if (grepl("LookupError: The DataType", httr::content(x, "text"))) {
+      stop(httr::content(x, "text"))
+    }
+
     stop(sprintf("Response from server: %s", status$reason))
   }
 }