-#' HttpParser
-#'
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)
},
- #TODO rename this
- parseWebDAVResponse = function(response, uri)
+ getFileNamesFromResponse = function(response, uri)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)
})
)
result <- result[result != ""]
- result
+ result[-1]
},
- extractFileSizeFromWebDAVResponse = function(response, uri)
+ getFileSizesFromResponse = function(response, uri)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)