if (FALSE) {
o <- opal.login('administrator','password', url='https://opal-demo.obiba.org')
# make a view
opal.table_view_create(o, "CNSIM", "CNSIM123",
c("CNSIM.CNSIM1"))
# update the table references
opal.table_view_update(o, "CNSIM", "CNSIM123",
tables = c("CNSIM.CNSIM1", "CNSIM.CNSIM2", "CNSIM.CNSIM3"))
# update the entity filter
opal.table_view_update(o, "CNSIM", "CNSIM123", where = "$('LAB_TSC').ge(5)")
# remove the entity filter
opal.table_view_update(o, "CNSIM", "CNSIM123", where = "")
# update both the table references and the entity filter
opal.table_view_update(o, "CNSIM", "CNSIM123",
tables = c("CNSIM.CNSIM1", "CNSIM.CNSIM2", "CNSIM.CNSIM3"),
where = "$('LAB_TSC').ge(5)")
opal.logout(o)
}
Run the code above in your browser using DataLab