Added code to notify user when API is unable to locate webDAV server.

Arvados-DCO-1.1-Signed-off-by: Fuad Muhic <fmuhic@capeannenterprises.com>

diff --git a/sdk/R/R/Arvados.R b/sdk/R/R/Arvados.R
index c051313286a080e5e3e78c6b0285a1b3ca2346e9..e337cb921a6a8d45a313cee10047e2b1f0afbd20 100644 (file)
--- a/sdk/R/R/Arvados.R
+++ b/sdk/R/R/Arvados.R
@@ -47,6 +47,9 @@ Arvados <- R6::R6Class(
 
             discoveryDocument <- private$httpParser$parseJSONResponse(serverResponse)
             private$webDavHostName <- discoveryDocument$keepWebServiceUrl
+
+            if(is.null(private$webDavHostName))
+                stop("Unable to find WebDAV server.")
         },
 
         getToken    = function() private$token,