From 116f934f0359b27ae3bd3047860fc5e7f27bdcf5 Mon Sep 17 00:00:00 2001 From: Fuad Muhic Date: Wed, 27 Jun 2018 14:10:54 +0200 Subject: [PATCH] getConnection now works correctly when ARVADOS_API_HOST_INSECURE is set to TRUE Arvados-DCO-1.1-Signed-off-by: Fuad Muhic --- sdk/R/R/HttpRequest.R | 2 +- sdk/R/R/RESTService.R | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/sdk/R/R/HttpRequest.R b/sdk/R/R/HttpRequest.R index 95dd375deb..abbe5b7b44 100644 --- a/sdk/R/R/HttpRequest.R +++ b/sdk/R/R/HttpRequest.R @@ -30,7 +30,7 @@ HttpRequest <- R6::R6Class( config <- httr::add_headers(unlist(headers)) if(toString(Sys.getenv("ARVADOS_API_HOST_INSECURE") == "TRUE")) - config$options = list(ssl_verifypeer = FALSE) + config$options = list(ssl_verifypeer = 0L) # times = 1 regular call + numberOfRetries response <- httr::RETRY(verb, url = url, body = body, diff --git a/sdk/R/R/RESTService.R b/sdk/R/R/RESTService.R index ac65d0df3f..7048b159cc 100644 --- a/sdk/R/R/RESTService.R +++ b/sdk/R/R/RESTService.R @@ -195,6 +195,9 @@ RESTService <- R6::R6Class( 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) + conn <- curl::curl(url = fileURL, open = openMode, handle = h) conn -- 2.30.2