if (FALSE) {
con <- dsConnect(DSOpal::Opal(), "server1",
username = "dsuser", password = "password", url = "https://opal-demo.obiba.org")
dsAssignExpr(con, "C", as.symbol("c(1, 2, 3)"))
res <- dsAggregate(con, as.symbol("length(C)"), async = TRUE)
completed <- dsIsCompleted(res)
while (!completed) {
Sys.sleep(1)
completed <- dsIsCompleted(res)
}
length <- dsFetch(res)
dsDisconnect(con)
}
Run the code above in your browser using DataLab