if (FALSE) {
o <- opal.login('administrator','password', url='https://opal-demo.obiba.org')
cqx <- opal.table_get(o, "CPTP", "Cag_coreqx")
cqx <- dictionary.annotate(cqx,
variables = c("A_SDC_EDU_LEVEL", "A_SDC_EDU_LEVEL_AGE"),
taxonomy = "Mlstr_area",
vocabulary = "Sociodemographic_economic_characteristics",
term = "Education")
opal.logout(o)
}
Run the code above in your browser using DataLab