This tutorial illustrates how to log in to two DataSHIELD example servers and assign data for use in other tutorials.
library(DSI)
library(DSMolgenisArmadillo)
library(DSOpal)
armadillo_url <- "https://armadillo-playground.molgenis.net/"
token <- MolgenisArmadillo::armadillo.get_token(armadillo_url)
## [1] "We're opening a browser so you can log in with code GRXN-DMME"
A browser page will open. Press the Submit button. Then enter:
Credential Value
User dsuser@datashield.org
Password P@ssw0rd
Once you see "Successfully connected device", you can return to RStudio.
builder <- DSI::newDSLoginBuilder()
builder$append(
server = "server1",
url = "https://armadillo-playground.molgenis.net/",
token = token,
driver = "ArmadilloDriver"
)
builder$append(
server = "server2",
url = "https://opal-demo.obiba.org/",
user = "dsuser",
password = "P@ssw0rd",
driver = "OpalDriver"
)
logindata <- builder$build()
conns <- datashield.login(logins = logindata, assign = FALSE)
Now we assign test datasets on each server.
datashield.assign.table(conns["server1"], "cnsim", "example-datasets/data/cnsim_1")
datashield.assign.table(conns["server1"], "dasim", "example-datasets/data/dasim_1")
datashield.assign.table(conns["server1"], "depression", "example-datasets/data/depression_1")
datashield.assign.table(conns["server1"], "survival", "example-datasets/data/survival_1")
datashield.assign.table(conns["server1"], "titanic", "example-datasets/data/titanic_1")
datashield.assign.table(conns["server2"], "cnsim", "CNSIM.CNSIM2")
datashield.assign.table(conns["server2"], "dasim", "DASIM.DASIM2")
datashield.assign.table(conns["server2"], "depression", "depression.growth_2")
datashield.assign.table(conns["server2"], "survival", "SURVIVAL.EXPAND_WITH_MISSING2")
datashield.assign.table(conns["server2"], "titanic", "TITANIC_NEWCOMERS_WORKSHOP.titanic_server_2")