Feat/armadillo remote url

armadillo_azure-pipelines.yml

@@ -59,10 +59,10 @@ schedules:
       - master
     always: true
   - cron: "0 2 * * *"
-    displayName: Nightly build - v6.3.5-dev
+    displayName: Nightly build - v6.3.6-dev
     branches:
       include:
-      - v6.3.5-dev
+      - v6.3.6-dev
     always: true
 
 #########################################################################################
@@ -133,7 +133,7 @@ jobs:
       sudo apt-get upgrade -y
 
       sudo apt-get install -qq libxml2-dev libcurl4-openssl-dev libssl-dev libgsl-dev libgit2-dev r-base -y
-      sudo apt-get install -qq libharfbuzz-dev libfribidi-dev libmagick++-dev libudunits2-dev -y
+      sudo apt-get install -qq libharfbuzz-dev libfribidi-dev libmagick++-dev libudunits2-dev libuv1-dev -y
       sudo R -q -e "install.packages(c('devtools','covr'), dependencies=TRUE, repos='https://cloud.r-project.org')"
       sudo R -q -e "install.packages(c('fields','meta','metafor','ggplot2','gridExtra','data.table'), dependencies=TRUE, repos='https://cloud.r-project.org')"
       sudo R -q -e "install.packages(c('DSI','DSOpal','DSLite'), dependencies=TRUE, repos='https://cloud.r-project.org')"

azure-pipelines.yml

@@ -45,10 +45,10 @@ schedules:
       - master
     always: true
   - cron: "0 2 * * *"
-    displayName: Nightly build - v6.3.5-dev
+    displayName: Nightly build - v6.3.6-dev
     branches:
       include:
-      - v6.3.5-dev
+      - v6.3.6-dev
     always: true
 
 #########################################################################################
@@ -114,7 +114,7 @@ jobs:
       sudo apt-get upgrade -y
 
       sudo apt-get install -qq libxml2-dev libcurl4-openssl-dev libssl-dev libgsl-dev libgit2-dev r-base -y
-      sudo apt-get install -qq libharfbuzz-dev libfribidi-dev libmagick++-dev libudunits2-dev -y
+      sudo apt-get install -qq libharfbuzz-dev libfribidi-dev libmagick++-dev libudunits2-dev libuv1-dev -y
       sudo R -q -e "install.packages(c('curl','httr'), dependencies=TRUE, repos='https://cloud.r-project.org')"
       sudo R -q -e "install.packages(c('devtools','covr'), dependencies=TRUE, repos='https://cloud.r-project.org')"
       sudo R -q -e "install.packages(c('fields','meta','metafor','ggplot2','gridExtra','data.table'), dependencies=TRUE, repos='https://cloud.r-project.org')"

opal_azure-pipelines.yml

@@ -45,10 +45,10 @@ schedules:
       - master
     always: true
   - cron: "0 2 * * *"
-    displayName: Nightly build - v6.3.5-dev
+    displayName: Nightly build - v6.3.6-dev
     branches:
       include:
-      - v6.3.5-dev
+      - v6.3.6-dev
     always: true
 
 #########################################################################################
@@ -114,7 +114,7 @@ jobs:
       sudo apt-get upgrade -y
 
       sudo apt-get install -qq libxml2-dev libcurl4-openssl-dev libssl-dev libgsl-dev libgit2-dev r-base -y
-      sudo apt-get install -qq libharfbuzz-dev libfribidi-dev libmagick++-dev libudunits2-dev -y
+      sudo apt-get install -qq libharfbuzz-dev libfribidi-dev libmagick++-dev libudunits2-dev libuv1-dev -y
       sudo R -q -e "install.packages(c('curl','httr'), dependencies=TRUE, repos='https://cloud.r-project.org')"
       sudo R -q -e "install.packages(c('devtools','covr'), dependencies=TRUE, repos='https://cloud.r-project.org')"
       sudo R -q -e "install.packages(c('fields','meta','metafor','ggplot2','gridExtra','data.table'), dependencies=TRUE, repos='https://cloud.r-project.org')"

tests/testthat/connection_to_datasets/init_discordant_datasets.R

@@ -5,17 +5,17 @@ init.discordant.dataset.simple <- function(variables)
       if (ds.test_env$driver == "OpalDriver")
       {
         builder <- DSI::newDSLoginBuilder(.silent = TRUE)
-        builder$append(server = "discordant1", url = ds.test_env$ip_address_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "DISCORDANT.DISCORDANT_STUDY1", options=ds.test_env$options_1)
-        builder$append(server = "discordant2", url = ds.test_env$ip_address_2, user = ds.test_env$user_2, password = ds.test_env$password_2, table = "DISCORDANT.DISCORDANT_STUDY2", options=ds.test_env$options_2)
-        builder$append(server = "discordant3", url = ds.test_env$ip_address_3, user = ds.test_env$user_3, password = ds.test_env$password_3, table = "DISCORDANT.DISCORDANT_STUDY3", options=ds.test_env$options_3)
+        builder$append(server = "discordant1", url = ds.test_env$server_url_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "DISCORDANT.DISCORDANT_STUDY1", options=ds.test_env$options_1)
+        builder$append(server = "discordant2", url = ds.test_env$server_url_2, user = ds.test_env$user_2, password = ds.test_env$password_2, table = "DISCORDANT.DISCORDANT_STUDY2", options=ds.test_env$options_2)
+        builder$append(server = "discordant3", url = ds.test_env$server_url_3, user = ds.test_env$user_3, password = ds.test_env$password_3, table = "DISCORDANT.DISCORDANT_STUDY3", options=ds.test_env$options_3)
         ds.test_env$login.data <- builder$build()
       }
       else if (ds.test_env$driver == "ArmadilloDriver")
       {
         builder <- DSI::newDSLoginBuilder(.silent = TRUE)
-        builder$append(server = "discordant1", url = ds.test_env$ip_address_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "datashield/discordant/DISCORDANT_STUDY1", driver = "ArmadilloDriver")
-        builder$append(server = "discordant2", url = ds.test_env$ip_address_2, user = ds.test_env$user_2, password = ds.test_env$password_2, table = "datashield/discordant/DISCORDANT_STUDY2", driver = "ArmadilloDriver")
-        builder$append(server = "discordant3", url = ds.test_env$ip_address_3, user = ds.test_env$user_3, password = ds.test_env$password_3, table = "datashield/discordant/DISCORDANT_STUDY3", driver = "ArmadilloDriver")
+        builder$append(server = "discordant1", url = ds.test_env$server_url_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "datashield/discordant/DISCORDANT_STUDY1", driver = "ArmadilloDriver")
+        builder$append(server = "discordant2", url = ds.test_env$server_url_2, user = ds.test_env$user_2, password = ds.test_env$password_2, table = "datashield/discordant/DISCORDANT_STUDY2", driver = "ArmadilloDriver")
+        builder$append(server = "discordant3", url = ds.test_env$server_url_3, user = ds.test_env$user_3, password = ds.test_env$password_3, table = "datashield/discordant/DISCORDANT_STUDY3", driver = "ArmadilloDriver")
         ds.test_env$login.data <- builder$build()
       }
       else 

tests/testthat/connection_to_datasets/init_local_settings.R

@@ -1,28 +1,33 @@
-#this file stores some settings for the continuous integration and local testing.
+#
+# The file "connection_to_datasets/local_settings.csv" (within the directory "tests/testthat") contains, if present,
+# values which can be used to affect the behavious of the continuous integration.
+#
+# The server URL is in a CVS file, being the value of the first column, first row.
+#
 
-init.ip.address <- function()
+init.server.url <- function()
 {
    file.name <- init.local.settings()
    if (file.exists(file.name))
    {
-      content <- read.csv(file.name, header = FALSE)
-      ip.address <- as.character(content[[1]][1])
+      content    <- read.csv(file.name, header = FALSE)
+      server.url <- as.character(content[[1]][1])
    }
    else
    {
-      # ip.address <- "127.0.0.1"
-      ip.address <- "localhost"
+      # server.url <- "http://127.0.0.1:8080/"
+      server.url <- "http://localhost:8080/"
    }
-   return (ip.address)
+   return (server.url)
 }
 
 
 
 init.local.settings <- function()
 {
-  path <- getwd()
+  path            <- getwd()
   sub.folder.name <- "/connection_to_datasets/"
-  file.name <- "local_settings.csv"
-  return(paste(path, sub.folder.name,file.name, sep=""))
-
+  file.name       <- "local_settings.csv"
+
+  return(paste(path, sub.folder.name, file.name, sep=""))
 }

tests/testthat/connection_to_datasets/init_mediation_datasets.R

@@ -5,9 +5,9 @@ init.mediation.dataset.upb <- function(variables)
         if (ds.test_env$driver == "OpalDriver")
         {
             builder <- DSI::newDSLoginBuilder(.silent = TRUE)
-            builder$append(server = "study1", url = ds.test_env$ip_address_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.UPBdata1", options=ds.test_env$options_1)
-            builder$append(server = "study2", url = ds.test_env$ip_address_2, user = ds.test_env$user_2, password = ds.test_env$password_2, table = "MEDIATION.UPBdata2", options=ds.test_env$options_2)
-            builder$append(server = "study3", url = ds.test_env$ip_address_3, user = ds.test_env$user_3, password = ds.test_env$password_3, table = "MEDIATION.UPBdata3", options=ds.test_env$options_3)
+            builder$append(server = "study1", url = ds.test_env$server_url_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.UPBdata1", options=ds.test_env$options_1)
+            builder$append(server = "study2", url = ds.test_env$server_url_2, user = ds.test_env$user_2, password = ds.test_env$password_2, table = "MEDIATION.UPBdata2", options=ds.test_env$options_2)
+            builder$append(server = "study3", url = ds.test_env$server_url_3, user = ds.test_env$user_3, password = ds.test_env$password_3, table = "MEDIATION.UPBdata3", options=ds.test_env$options_3)
             ds.test_env$login.data <- builder$build()
         }
         else 
@@ -25,7 +25,7 @@ init.mediation.dataset.student <- function(variables)
         if (ds.test_env$driver == "OpalDriver")
         {
             builder <- DSI::newDSLoginBuilder(.silent = TRUE)
-            builder$append(server = "study1", url = ds.test_env$ip_address_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.student", options=ds.test_env$options_1)
+            builder$append(server = "study1", url = ds.test_env$server_url_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.student", options=ds.test_env$options_1)
             ds.test_env$login.data <- builder$build()
         }
         else 
@@ -43,7 +43,7 @@ init.mediation.dataset.framing <- function(variables)
         if (ds.test_env$driver == "OpalDriver")
         {
             builder <- DSI::newDSLoginBuilder(.silent = TRUE)
-            builder$append(server = "study1", url = ds.test_env$ip_address_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.framing", options=ds.test_env$options_1)
+            builder$append(server = "study1", url = ds.test_env$server_url_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.framing", options=ds.test_env$options_1)
             ds.test_env$login.data <- builder$build()
         }
         else 
@@ -61,7 +61,7 @@ init.mediation.dataset.vv2015 <- function(variables)
         if (ds.test_env$driver == "OpalDriver")
         {
             builder <- DSI::newDSLoginBuilder(.silent = TRUE)
-            builder$append(server = "study1", url = ds.test_env$ip_address_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.vv2015", options=ds.test_env$options_1)
+            builder$append(server = "study1", url = ds.test_env$server_url_1, user = ds.test_env$user_1, password = ds.test_env$password_1, table = "MEDIATION.vv2015", options=ds.test_env$options_1)
             ds.test_env$login.data <- builder$build()
         }
         else