From 91801cb4c303db0fbf701aa34e646e0dc4187f05 Mon Sep 17 00:00:00 2001
From: Fuad Muhic <fmuhic@capeannenterprises.com>
Date: Fri, 22 Dec 2017 14:01:05 +0100
Subject: [PATCH] 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>
---
 sdk/R/R/Arvados.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sdk/R/R/Arvados.R b/sdk/R/R/Arvados.R
index c051313286..e337cb921a 100644
--- 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,
-- 
2.30.2