getConnection now works correctly when ARVADOS_API_HOST_INSECURE is set to TRUE

[arvados.git] / sdk / R / R / RESTService.R

diff --git a/sdk/R/R/RESTService.R b/sdk/R/R/RESTService.R
index ac65d0df3f37b6baa6031bc8cbab71b163e27a76..7048b159cc8099180c6f5c689cc8b51a5327c5b3 100644 (file)
--- 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