if (FALSE) {
example_url <- "https://armadillo.example.org"
credentials <- armadillo.get_credentials(example_url)
builder <- newDSLoginBuilder()
builder$append(
url = example_url,
server = "example_server",
token = credentials@access_token,
driver = "ArmadilloDriver")
logindata <- builder$build()
conns <- datashield.login(logins = logindata, assign = FALSE)
}
Run the code above in your browser using DataLab