Check for potential null when unwrapping error message

coderaanalytics · Oct 18, 2024 · b71be12 · b71be12
1 parent d651651
commit b71be12
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/R/write_database.R b/R/write_database.R
@@ -75,7 +75,7 @@ write_database <- function(x, method = "update", ...) {
       } else {
         error <- content(response, type = "application/json")
         if (response$status_code == 400) {
-          if (error$message == "Validation error") {
+          if (!is.null(error$message) && error$message == "Validation error") {
             stop(toJSON(error, pretty = TRUE))
           } else {
             stop(error)

diff --git a/R/write_dataset.R b/R/write_dataset.R
@@ -101,12 +101,13 @@ write_dataset <- function(x, method = "stage", ...) {
       } else {
         error <- content(response, type = "application/json")
         if (response$status_code == 400) {
-          if (error$message == "Validation error") {
+          browser()
+          if (!is.null(error$message) && error$message == "Validation error") {
             stop(toJSON(error, pretty = TRUE))
           } else {
             stop(error)
           }
-        }  else {
+        } else {
           stop(error)
         }
       }