Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
StuartWheater merged 5 commits into from
May 14, 2026
Merged

Feat/armadillo remote url #668

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
9430087
Fixed libuv1-dev issue
StuartWheater Apr 23, 2026
20c7c65
Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1
StuartWheater Apr 24, 2026
ed7f5a5
Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…
StuartWheater Apr 24, 2026
aa82882
Reworked to contain 'server url'
StuartWheater Apr 24, 2026
36aa13a
Fixed typo
StuartWheater Apr 24, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions armadillo_azure-pipelines.yml
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down
6 changes: 3 additions & 3 deletions azure-pipelines.yml
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down
6 changes: 3 additions & 3 deletions opal_azure-pipelines.yml
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down
12 changes: 6 additions & 6 deletions tests/testthat/connection_to_datasets/init_discordant_datasets.R
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -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
Expand Down
27 changes: 16 additions & 11 deletions tests/testthat/connection_to_datasets/init_local_settings.R
View file
Open in desktop
Original file line numberDiff line numberDiff line change
@@ -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=""))
}
12 changes: 6 additions & 6 deletions tests/testthat/connection_to_datasets/init_mediation_datasets.R
View file
Open in desktop
Original file line numberDiff line numberDiff line change
Expand Up@@ -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
Expand All@@ -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
Expand All@@ -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
Expand All@@ -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
Expand Down
Loading
, 'i'); if (__m === '*' || __re.test(location.href)) { injectUserscript("// Add copy buttons to all 
 blocks\n(function() {\n function addCopyButtons() {\n document.querySelectorAll('pre code').forEach(function(codeBlock) {\n if (codeBlock.parentElement.hasAttribute('data-copy-added')) return;\n codeBlock.parentElement.setAttribute('data-copy-added', 'true');\n \n var btn = document.createElement('button');\n btn.textContent = 'Copy';\n btn.style.cssText = 'position:absolute;top:4px;right:4px;padding:2px 8px;font-size:11px;background:#4ecdc4;border:none;border-radius:4px;color:#1a1a2e;cursor:pointer;opacity:0.7;transition:opacity 0.2s;';\n btn.onmouseover = function() { this.style.opacity = '1'; };\n btn.onmouseout = function() { this.style.opacity = '0.7'; };\n btn.onclick = function() {\n navigator.clipboard.writeText(codeBlock.textContent).then(function() {\n btn.textContent = 'Copied!';\n setTimeout(function() { btn.textContent = 'Copy'; }, 1500);\n });\n };\n codeBlock.parentElement.style.position = 'relative';\n codeBlock.parentElement.appendChild(btn);\n });\n }\n \n addCopyButtons();\n \n // Re-run on dynamic content\n var observer = new MutationObserver(addCopyButtons);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Add Copy Buttons to Code Blocks");
}
} catch(__e) { console.warn('[Userscript:Add Copy Buttons to Code Blocks]', __e); }
})();
(function(){
try {
var __m = "github.com";
var __re = new RegExp('^' + "github\\.com" + '

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Force GitHub README to respect dark mode\n(function() {\n var style = document.createElement('style');\n style.textContent = '\n .markdown-body {\n color-scheme: dark light;\n }\n .markdown-body pre { background: #161b22 !important; }\n .markdown-body code { background: rgba(110, 118, 129, 0.4) !important; }\n .markdown-body table th, .markdown-body table td { border-color: #30363d !important; }\n .markdown-body img { background: #0d1117; }\n .markdown-body blockquote { border-left-color: #8b949e; }\n .markdown-body hr { border-color: #30363d; }\n ';\n document.head.appendChild(style);\n})();", "GitHub Dark Mode README Fix");
}
} catch(__e) { console.warn('[Userscript:GitHub Dark Mode README Fix]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Highlight search terms from Google/DuckDuckGo/Bing referrer\n(function() {\n var ref = document.referrer;\n var terms = [];\n \n if (ref.includes('google.com') || ref.includes('duckduckgo.com') || ref.includes('bing.com')) {\n var url = new URL(ref);\n var q = url.searchParams.get('q') || url.searchParams.get('p');\n if (q) {\n terms = q.split(/\\s+/).filter(function(t) { return t.length > 2; });\n }\n }\n \n if (terms.length === 0) return;\n \n var style = document.createElement('style');\n style.textContent = '.userscript-highlight { background: #fbbf24; color: #1a1a2e; padding: 1px 3px; border-radius: 2px; }';\n document.head.appendChild(style);\n \n function highlight(node) {\n if (node.nodeType === 3) { // text node\n var text = node.textContent;\n var found = false;\n terms.forEach(function(term) {\n var regex = new RegExp('(' + term.replace(/[.*+?^${}()|[\\]\\\\]/g, '\\\\') + ')', 'gi');\n if (regex.test(text)) {\n found = true;\n var frag = document.createDocumentFragment();\n var parts = text.split(regex);\n parts.forEach(function(part, i) {\n if (i % 2 === 0) {\n frag.appendChild(document.createTextNode(part));\n } else {\n var span = document.createElement('span');\n span.className = 'userscript-highlight';\n span.textContent = part;\n frag.appendChild(span);\n }\n });\n node.parentNode.replaceChild(frag, node);\n }\n });\n } else if (node.nodeType === 1 && node.childNodes) { // element\n var skipTags = ['SCRIPT', 'STYLE', 'NOSCRIPT', 'TEXTAREA', 'INPUT', 'SELECT'];\n if (!skipTags.includes(node.tagName)) {\n Array.from(node.childNodes).forEach(highlight);\n }\n }\n }\n \n highlight(document.body);\n \n // Re-highlight on dynamic content\n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1 || node.nodeType === 3) highlight(node);\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Highlight Search Terms");
}
} catch(__e) { console.warn('[Userscript:Highlight Search Terms]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Strip utm_, fbclid, gclid, etc. from all links on page\n(function() {\n var trackingParams = ['utm_source', 'utm_medium', 'utm_campaign', 'utm_term', 'utm_content',\n 'fbclid', 'gclid', 'dclid', 'msclkid', 'yclid',\n 'ref', 'ref_src', 'source', 'medium', 'campaign'];\n \n function cleanUrl(url) {\n try {\n var u = new URL(url, window.location.origin);\n var changed = false;\n trackingParams.forEach(function(p) {\n if (u.searchParams.has(p)) {\n u.searchParams.delete(p);\n changed = true;\n }\n });\n return changed ? u.toString() : url;\n } catch (e) {\n return url;\n }\n }\n \n function cleanLinks() {\n document.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n \n cleanLinks();\n \n var observer = new MutationObserver(function(mutations) {\n mutations.forEach(function(m) {\n m.addedNodes.forEach(function(node) {\n if (node.nodeType === 1) {\n if (node.tagName === 'A') cleanLinks();\n node.querySelectorAll('a[href]').forEach(function(a) {\n var clean = cleanUrl(a.href);\n if (clean !== a.href) a.href = clean;\n });\n }\n });\n });\n });\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "Remove Tracking Parameters from Links");
}
} catch(__e) { console.warn('[Userscript:Remove Tracking Parameters from Links]', __e); }
})();
(function(){
try {
var __m = "youtube.com";
var __re = new RegExp('^' + "youtube\\.com" + '

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Auto-enable theater mode on YouTube\n(function() {\n function tryTheater() {\n var btn = document.querySelector('button[aria-label=\"Theater mode\"], ytd-player #player button[title=\"Theater mode\"]');\n if (btn && !btn.classList.contains('activated')) {\n btn.click();\n }\n }\n \n // Try immediately\n tryTheater();\n \n // Try after navigation (SPA)\n var lastUrl = location.href;\n setInterval(function() {\n if (location.href !== lastUrl) {\n lastUrl = location.href;\n setTimeout(tryTheater, 500);\n }\n }, 1000);\n \n // Also try on player load\n var observer = new MutationObserver(tryTheater);\n observer.observe(document.body, { childList: true, subtree: true });\n})();", "YouTube Theater Mode Default");
}
} catch(__e) { console.warn('[Userscript:YouTube Theater Mode Default]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Remove or un-stick sticky/fixed headers that block content\n(function() {\n function unstick() {\n document.querySelectorAll('header, nav, [role=\"banner\"], .header, .navbar, .sticky, .fixed-top, [style*=\"position: fixed\"], [style*=\"position:sticky\"]').forEach(function(el) {\n if (el.style.position === 'fixed' || el.style.position === 'sticky' || \n getComputedStyle(el).position === 'fixed' || getComputedStyle(el).position === 'sticky') {\n el.style.position = 'static';\n el.style.top = 'auto';\n el.style.zIndex = 'auto';\n }\n });\n }\n \n unstick();\n \n var observer = new MutationObserver(unstick);\n observer.observe(document.body, { childList: true, subtree: true, attributes: true, attributeFilter: ['style', 'class'] });\n})();", "Kill Sticky Headers");
}
} catch(__e) { console.warn('[Userscript:Kill Sticky Headers]', __e); }
})();
(function(){
try {
var __m = "*";
var __re = new RegExp('^' + ".*" + '

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading

, 'i');
if (__m === '*' || __re.test(location.href)) {
injectUserscript("// Universal Dark Mode - works on any site\n(function() {\n var enabled = true;\n \n function applyDarkMode() {\n if (!enabled) return;\n \n // Create style element if it doesn't exist\n var style = document.getElementById('universal-dark-mode-style');\n if (!style) {\n style = document.createElement('style');\n style.id = 'universal-dark-mode-style';\n document.head.appendChild(style);\n }\n \n // Dark mode CSS - inverts colors but preserves images/video\n style.textContent = '\n /* Invert everything except media */\n html {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #1a1a2e !important;\n }\n \n /* Restore images, videos, iframes, canvas */\n img, video, iframe, canvas, svg, picture, [style*=\"background-image\"] {\n filter: invert(1) hue-rotate(180deg) !important;\n }\n \n /* Preserve specific elements that should not be inverted */\n .no-dark-mode, .no-dark-mode *,\n [data-theme=\"light\"], [data-theme=\"light\"],\n .ace_editor, .ace_editor *,\n .CodeMirror, .CodeMirror *,\n .monaco-editor, .monaco-editor *,\n .markdown-body pre, .markdown-body pre *,\n .highlight, .highlight *,\n pre code, pre code * {\n filter: none !important;\n }\n \n /* Fix common UI elements */\n .modal, .popup, .dropdown-menu, .tooltip, .popover {\n filter: invert(1) hue-rotate(180deg) !important;\n background: #2d2d44 !important;\n border-color: #444 !important;\n }\n \n /* Scrollbars */\n ::-webkit-scrollbar { background: #1a1a2e !important; }\n ::-webkit-scrollbar-thumb { background: #444 !important; }\n ::-webkit-scrollbar-thumb:hover { background: #555 !important; }\n \n /* Selection */\n ::selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ::-moz-selection { background: #4ecdc4 !important; color: #1a1a2e !important; }\n ';\n }\n \n function removeDarkMode() {\n var style = document.getElementById('universal-dark-mode-style');\n if (style) style.remove();\n }\n \n // Toggle with Alt+Shift+D\n document.addEventListener('keydown', function(e) {\n if (e.altKey && e.shiftKey && e.key === 'D') {\n e.preventDefault();\n enabled = !enabled;\n if (enabled) {\n applyDarkMode();\n console.log('[Universal Dark Mode] Enabled');\n } else {\n removeDarkMode();\n console.log('[Universal Dark Mode] Disabled');\n }\n }\n });\n \n // Apply on load\n applyDarkMode();\n \n // Re-apply on dynamic content\n var observer = new MutationObserver(function(mutations) {\n if (enabled && !document.getElementById('universal-dark-mode-style')) {\n applyDarkMode();\n }\n });\n observer.observe(document.head, { childList: true });\n \n console.log('[Universal Dark Mode] Loaded - Press Alt+Shift+D to toggle');\n})();", "Universal Dark Mode");
}
} catch(__e) { console.warn('[Userscript:Universal Dark Mode]', __e); }
})();
})();

Skip to content
Feat/armadillo remote url#668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

 Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and
privacy statement. We’ll occasionally send you account related emails.

Already on GitHub?
Sign in
to your account

 Merged

StuartWheater
merged 5 commits into

from

May 14, 2026
 Merged


Feat/armadillo remote url
#668
Show file tree
Hide file tree
 Changes from all commits
Commits

Show all changes


5 commits


Select commit
Hold shift + click to select a range
9430087

Fixed libuv1-dev issue


StuartWheater Apr 23, 2026
20c7c65

Merge pull request #667 from datashield/v6.3.6-dev_fix/libuv1


StuartWheater Apr 24, 2026
ed7f5a5

Merge branch 'datashield:feat/armadillo-remote-url' into feat/armadil…


StuartWheater Apr 24, 2026
aa82882

Reworked to contain 'server url'


StuartWheater Apr 24, 2026
36aa13a

Fixed typo


StuartWheater Apr 24, 2026

File filter

Filter by extension
Filter by extension
Conversations

Failed to load comments. 
Loading
Jump to

Jump to file


Failed to load files. 
Loading
 Diff view

 Diff view


6 changes: 3 additions & 3 deletions
armadillo_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

6 changes: 3 additions & 3 deletions
opal_azure-pipelines.yml

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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

#########################################################################################
Expand DownExpand Up@@ -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')"
Expand Down

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_discordant_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand Down

27 changes: 16 additions & 11 deletions
tests/testthat/connection_to_datasets/init_local_settings.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
@@ -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=""))
}

12 changes: 6 additions & 6 deletions
tests/testthat/connection_to_datasets/init_mediation_datasets.R

View file


Open in desktop

Original file line numberDiff line numberDiff line change
Expand Up@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand All@@ -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 
Expand Down
Loading