if (FALSE) {
o <- opal.login('administrator','password', url='https://opal-demo.obiba.org')
opal.session(o, wait = FALSE)
ready <- opal.session_running(o)
while(!ready) {
Sys.sleep(1)
ready <- opal.session_running(o)
cat(".")
}
opal.session_get(o)
opal.logout(o)
}
Run the code above in your browser using DataLab