if (FALSE) {
con <- dbConnect(DSOpal::Opal(), "server1",
"administrator", "password", "https://opal-demo.obiba.org")
session <- dsSession(con, async = TRUE)
ready <- dsIsReady(session)
while (!ready) {
Sys.sleep(1)
ready <- dsIsReady(session)
cat(dsStateMessage(session), "\n")
}
dsDisconnect(con)
}
Run the code above in your browser using DataLab