Merge pull request #10 from SwanseaUniversityMedical/JS/env

Impl. sys env setter for gateway usage

DESCRIPTION

@@ -1,10 +1,11 @@
 Package: ConceptLibraryClient
 Title: Concept Library API Client
-Version: 4.1
+Version: 4.2
 Authors@R: c(
   person("Dan", "Thayer", email = "[email protected]", role = "cre"),
   person("Etienne", "Badoche", email = "[email protected]", role = "aut"),
-  person("Ieuan", "Scanlon", email = "[email protected]", role = "aut"))
+  person("Ieuan", "Scanlon", email = "[email protected]", role = "aut"),
+  person("Jack", "Scanlon", email = "[email protected]", role = "aut"))
 Description: This package provides functions which mirror the HTTP requests that can be sent to the Concept Library API.
   These functions interact with Phenotypes, Concepts, Date Sources, Working Sets and Tags. The Concept Library also
   provides a public API, and a function is provided to connect to it instead with no authentication needed.
@@ -16,7 +17,7 @@ Imports:
 License: GPL (>= 3)
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.3
 Suggests: 
     testthat (>= 3.0.0),
 Config/testthat/edition: 3

R/connection.R

@@ -37,6 +37,10 @@ Connection <- R6::R6Class(
     initialize = function (
       username=NA, password=NA, public=FALSE, url=DEFAULT_CONNECTION_URL
     ) {
+      if (startsWith(url, DOMAINS$GATEWAY)) {
+        set_gateway_proxy()
+      }
+
       if (!public) {
         if (is.na(username) || is.na(password)) {
           message('Please log in to the Concept Library')

R/utils.R

@@ -1,3 +1,16 @@
+#' set_gateway_proxy
+#'
+#' @description
+#' Sets the user system environment variable to the gateway proxy.
+#' This method is only called when the user is utilising the DOMAINS$GATEWAY URL
+#'
+#' @returns NA
+#'
+set_gateway_proxy <- function () {
+  Sys.setenv(http_proxy='http://proxy:8080')
+  Sys.setenv(https_proxy='http://proxy:8080')
+}
+
 #' validate_type
 #'
 #' @description