X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/e72f801012e68e7a223a64d4e90bfa2cc66a9254..c856e47c2a25dc6979ea07f2c3942687687c833a:/sdk/R/R/HttpParser.R

diff --git a/sdk/R/R/HttpParser.R b/sdk/R/R/HttpParser.R
index e7407b1a0d..8ce68f3837 100644
--- a/sdk/R/R/HttpParser.R
+++ b/sdk/R/R/HttpParser.R
@@ -1,20 +1,33 @@
-#' HttpParser
-#'
+# Copyright (C) The Arvados Authors. All rights reserved.
+#
+# SPDX-License-Identifier: Apache-2.0
+
 HttpParser <- R6::R6Class(
 
     "HttrParser",
 
     public = list(
+
+        validContentTypes = NULL,
+
         initialize = function() 
         {
+            self$validContentTypes <- c("text", "raw")
         },
 
         parseJSONResponse = function(serverResponse) 
         {
-            parsed_response <- httr::content(serverResponse, as = "parsed", type = "application/json")
+            parsed_response <- httr::content(serverResponse,
+                                             as = "parsed",
+                                             type = "application/json")
+        },
+
+        parseResponse = function(serverResponse, outputType)
+        {
+            parsed_response <- httr::content(serverResponse, as = outputType)
         },
 
-        parseWebDAVResponse = function(response, uri)
+        getFileNamesFromResponse = function(response, uri)
         {
             text <- rawToChar(response$content)
             doc <- XML::xmlParse(text, asText=TRUE)
@@ -25,10 +38,10 @@ HttpParser <- R6::R6Class(
                 })
             )
             result <- result[result != ""]
-            result
+            result[-1]
         },
 
-        extractFileSizeFromWebDAVResponse = function(response, uri)    
+        getFileSizesFromResponse = function(response, uri)    
         {
             text <- rawToChar(response$content)
             doc <- XML::xmlParse(text, asText=TRUE)