handle addjob error 403 (#251)

Azure · Apr 16, 2018 · 79503a7 · 79503a7
1 parent a05f7a0
commit 79503a7
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/doAzureParallel.R b/R/doAzureParallel.R
@@ -495,6 +495,14 @@ setHttpTraffic <- function(value = FALSE) {
     if (response$status_code == 201) {
       break
     }
+    else if (response$status_code == 403) {
+      stop(
+        paste(
+          "Error in creating job: Server failed to authenticate the request.",
+          "Make sure your batch account credential is set correctly."
+        )
+      )
+    }
     else {
       jobContent <- httr::content(response, content = "parsed")