-source("./R/custom_classes.R")
+# Copyright (C) The Arvados Authors. All rights reserved.
+#
+# SPDX-License-Identifier: Apache-2.0
-HttpRequest <- setRefClass(
+source("./R/util.R")
+
+HttpRequest <- R6::R6Class(
"HttrRequest",
- fields = list(
- send_method = "character",
- server_base_url = "character",
- server_relative_url = "character",
- auth_token = "character",
- allowed_methods = "list",
- query_filters = "ANY",
- response_limit = "ANY",
- query_offset = "ANY"
- ),
+ public = list(
- methods = list(
- initialize = function(method,
- token,
- base_url,
- relative_url,
- filters = NULL,
- limit = 100,
- offset = 0)
- {
- send_method <<- method
- auth_token <<- token
- server_base_url <<- base_url
- server_relative_url <<- relative_url
- query_filters <<- filters
- response_limit <<- limit
- query_offset <<- offset
- },
+ validContentTypes = NULL,
+ validVerbs = NULL,
- execute = function()
+ initialize = function()
{
- http_method <- switch(send_method,
- "GET" = .self$getRequest,
- "POST" = .self$postRequest,
- "PUT" = .self$putRequest,
- "DELETE" = .self$deleteRequest,
- "PATCH" = .self$pathcRequest)
- http_method()
+ self$validContentTypes <- c("text", "raw")
+ self$validVerbs <- c("GET", "POST", "PUT", "DELETE", "PROPFIND", "MOVE", "COPY")
},
- getRequest = function()
+ exec = function(verb, url, headers = NULL, body = NULL, queryParams = NULL,
+ retryTimes = 0)
{
- requestHeaders <- httr::add_headers(Authorization = .self$getAuthHeader())
- requestQuery <- .self$generateQuery()
- url <- paste0(server_base_url, server_relative_url, requestQuery)
+ if(!(verb %in% self$validVerbs))
+ stop("Http verb is not valid.")
- server_data <- httr::GET(url = url,
- config = requestHeaders)
- },
+ urlQuery <- self$createQuery(queryParams)
+ url <- paste0(url, urlQuery)
- #Todo(Fudo): Try to make this more generic
- postRequest = function()
- {
- #Todo(Fudo): Implement this later on.
- print("POST method")
- },
+ config <- httr::add_headers(unlist(headers))
+ if(toString(Sys.getenv("ARVADOS_API_HOST_INSECURE") == "TRUE"))
+ config$options = list(ssl_verifypeer = 0L)
- putRequest = function()
- {
- #Todo(Fudo): Implement this later on.
- print("PUT method")
- },
-
- deleteRequest = function()
- {
- #Todo(Fudo): Implement this later on.
- print("DELETE method")
- },
-
- pathcRequest = function()
- {
- #Todo(Fudo): Implement this later on.
- print("PATCH method")
- },
-
- getAuthHeader = function()
- {
- auth_method <- "OAuth2"
- auth_header <- paste(auth_method, auth_token)
+ # times = 1 regular call + numberOfRetries
+ response <- httr::RETRY(verb, url = url, body = body,
+ config = config, times = retryTimes + 1)
},
- generateQuery = function()
+ createQuery = function(queryParams)
{
- #Todo(Fudo): This function is a mess, refactor it
- finalQuery <- "?alt=json"
+ queryParams <- Filter(Negate(is.null), queryParams)
- if(!is.null(query_filters))
+ query <- sapply(queryParams, function(param)
{
- filters <- sapply(query_filters, function(filter)
- {
- if(length(filter) != 3)
- stop("Filter list must have exacthey 3 elements.")
+ if(is.list(param) || length(param) > 1)
+ param <- RListToPythonList(param, ",")
- attributeAndOperator = filter[c(1, 2)]
- filterList = filter[[3]]
- filterListIsPrimitive = TRUE
- if(length(filterList) > 1)
- filterListIsPrimitive = FALSE
+ URLencode(as.character(param), reserved = T, repeated = T)
- attributeAndOperator <- sapply(attributeAndOperator, function(component) {
- component <- paste0("\"", component, "\"")
- })
+ }, USE.NAMES = TRUE)
- filterList <- sapply(unlist(filterList), function(filter) {
- filter <- paste0("\"", filter, "\"")
- })
-
- filterList <- paste(filterList, collapse = ",+")
-
- if(!filterListIsPrimitive)
- filterList <- paste0("[", filterList, "]")
-
- filter <- c(attributeAndOperator, filterList)
-
- queryParameter <- paste(filter, collapse = ",+")
- queryParameter <- paste0("[", queryParameter, "]")
-
- })
-
- filters <- paste(filters, collapse = ",+")
- filters <- paste0("[", filters, "]")
-
- encodedQuery <- URLencode(filters, reserved = T, repeated = T)
-
- finalQuery <- paste0(finalQuery, "&filters=", encodedQuery)
+ if(length(query) > 0)
+ {
+ query <- paste0(names(query), "=", query, collapse = "&")
- #Todo(Fudo): This is a hack for now. Find a proper solution.
- finalQuery <- stringr::str_replace_all(finalQuery, "%2B", "+")
+ return(paste0("/?", query))
}
- if(!is.null(response_limit))
- {
- if(!is.numeric(response_limit))
- stop("Limit must be a numeric type.")
-
- finalQuery <- paste0(finalQuery, "&limit=", response_limit)
- }
+ return("")
+ },
- if(!is.null(query_offset))
- {
- if(!is.numeric(query_offset))
- stop("Offset must be a numeric type.")
-
- finalQuery <- paste0(finalQuery, "&offset=", query_offset)
- }
+ getConnection = function(url, headers, openMode)
+ {
+ h <- curl::new_handle()
+ curl::handle_setheaders(h, .list = headers)
+
+ if(toString(Sys.getenv("ARVADOS_API_HOST_INSECURE") == "TRUE"))
+ curl::handle_setopt(h, ssl_verifypeer = 0L)
- finalQuery
+ conn <- curl::curl(url = url, open = openMode, handle = h)
}
- )
+ ),
+
+ cloneable = FALSE
)