Arvados-DCO-1.1-Signed-off-by: Fuad Muhic <fmuhic@capeannenterprises.com>
discoveryDocument <- private$httpParser$parseJSONResponse(serverResponse)
private$webDavHostName <- discoveryDocument$keepWebServiceUrl
- print(private$webDavHostName)
},
getToken = function() private$token,
#TODO(Fudo): Use proper token here.
curl::handle_setheaders(h, "Authorization" = paste("OAuth2", private$api$getToken()))
response <- curl::curl_fetch_memory(uri, h)
- print(response)
HttpParser$new()$parseWebDAVResponse(response, uri)
},