projects
/
arvados.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2411: add copyright headers to our R files.
[arvados.git]
/
sdk
/
R
/
R
/
HttpParser.R
diff --git
a/sdk/R/R/HttpParser.R
b/sdk/R/R/HttpParser.R
index e7407b1a0df0b915b20602dd58cdb66ae97e52ee..8ce68f3837f158486534c6adc55e4ff23e9386e1 100644
(file)
--- 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(
HttpParser <- R6::R6Class(
"HttrParser",
public = list(
+
+ validContentTypes = NULL,
+
initialize = function()
{
initialize = function()
{
+ self$validContentTypes <- c("text", "raw")
},
parseJSONResponse = function(serverResponse)
{
},
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)
},
},
-
parseWebDAV
Response = function(response, uri)
+
getFileNamesFrom
Response = function(response, uri)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)
@@
-25,10
+38,10
@@
HttpParser <- R6::R6Class(
})
)
result <- result[result != ""]
})
)
result <- result[result != ""]
- result
+ result
[-1]
},
},
-
extractFileSizeFromWebDAV
Response = function(response, uri)
+
getFileSizesFrom
Response = function(response, uri)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)
{
text <- rawToChar(response$content)
doc <- XML::xmlParse(text, asText=TRUE)