api_call.R

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)