Async assign at login

Get token from ID provider

armadillo_url <- "http://localhost:8080"
token <- armadillo.get_token(armadillo_url)

Create login frame with the token

builder <- DSI::newDSLoginBuilder()
builder$append(
  server = "armadillo",
  url = armadillo_url,
  token = token,
  table = "chicago/crime/crimes.parquet",
  driver = "ArmadilloDriver"
)

## Warning: Secure HTTP connection is recommended: http://localhost:8080

logindata <- builder$build()

Login with assignment

tic("login")
httr::with_verbose(
  conns <- datashield.login(
    logins = builder$build(),
    variables = c("Arrest"),
    symbol = "crimes",
    assign = TRUE
  )
)

## 
## Logging into the collaborating servers

## 
## Assigning table data...

## [1] "dsGetInfo status="
## [1] "PENDING"

toc()

## login: 0.128 sec elapsed