Newer
Older
get_codelist <- function() {
api <- api_class(
api_type = "codelist",
export_format = "SDMX-ML",
parameters = "level=1&annotations=true&additionalProp2=string&language=fr",
id = "CL_NOGA_SECTION"
)
api$get_response()
}
get_codelist()
get_one_level <- function() {
api_call <- api(
api_type = "nomenclature_one_level",
export_format = "CSV",
root_url = BASE_URL,
parameters = "level=1&annotations=true&additionalProp2=string&language=fr",
id = "HCL_CH_ISCO_19_PROF",
language = "fr",
)
api_call$get_url()
api_call$api_call()
}
get_one_level()