library(hash) ############################################################### ########################## i14y APIs ########################## ############################################################### get_codelist <- function( identifier, export_format="SDMX-ML", version_format=2.1, annotations=FALSE ) { api <- api_class( api_type = "codelist", export_format = export_format, parameters = glue("annotations={tolower(annotations)}"), id = identifier ) api$get_response() } get_codelist(identifier='CL_NOGA_SECTION') get_content_configuration <- function(){ api <- api_class(api_type = "content_configuration") api$get_response() } get_content_configuration() get_identifier_content <- function(identifier){ api <- api_class( api_type = "content_configuration_identifier", id = identifier ) api$get_response() } get_identifier_content(identifier='HCL_CH_ISCO_19_PROF') get_dataset_description <- function(identifier, language='fr'){ api <- api_class( api_type = "dcat_dataset_description", id = identifier, language = language ) api$get_response() } get_dataset_description(identifier='HCL_NOGA', language='de') get_dataset_information <- function(identifier, language='en'){ api <- api_class( api_type = "dcat_dataset_information", id = identifier, language = language ) api$get_response() } get_dataset_information(identifier='HCL_NOGA', language='de') get_data_structure <- function(identifier, language='en'){ api <- api_class( api_type = "dcat_data_structure", id = identifier, language = language ) api$get_response() } get_data_structure(identifier='HCL_NOGA', language='it') get_nomenclature_path_nodes <- function(identifier, path='.', filters='', language='en'){ api <- api_class( api_type = "nomenclature_path_nodes", id = identifier, path = path, parameters = stringify(filters), language = language ) api$get_response() } my_filters <- hash( 'prop1'= list("string"), 'prop2' = list("string", "string2") ) get_nomenclature_path_nodes(identifier='HCL_CH_ISCO_19_PROF', path='.', filters=my_filters)