if (FALSE) {
drv <- DSOpal::Opal()
con <- dsConnect(drv,
username = "dsuser", password = "password", url = "https://opal-demo.obiba.org")
rs <- dsAssign(con, "Project.TableA")
is(drv, "DSObject") ## True
is(con, "DSObject") ## True
is(rs, "DSObject") ## True
dsDisconnect(con)
}
Run the code above in your browser using DataLab