adding dcat apis

api_call.R

@@ -171,3 +171,107 @@ query_nomenclature(identifier='HCL_CH_ISCO_19_PROF', query='SELECT *', page_numb
 ###############################################################
 
 
+dcat_list_all_agents <- function(){
+  api <- api_class(
+    api_type = "agents_list",
+    root_url = DCAT_URL
+  )
+  api$get_response()
+}
+dcat_list_all_agents()
+
+
+
+dcat_get_agent_from_id <- function(agent_id){
+  api <- api_class(
+    api_type = "agent_id",
+    root_url = DCAT_URL,
+    id = agent_id
+  )
+  api$get_response()
+}
+dcat_get_agent_from_id(agent_id='xx')
+
+
+
+dcat_list_all_datasets <- function(){
+  api <- api_class(
+    api_type = "dataset_list",
+    root_url = DCAT_URL
+  )
+  api$get_response()
+}
+dcat_list_all_datasets()
+
+
+
+dcat_get_distributions_from_dataset_id <- function(dataset_id){
+  api <- api_class(
+    api_type = "dataset_id_distributions",
+    root_url = DCAT_URL,
+    id = dataset_id
+  )
+  api$get_response()
+}
+dcat_get_distributions_from_dataset_id(dataset_id='xx')
+
+
+
+dcat_get_dataset_from_id <- function(dataset_id){
+  api <- api_class(
+    api_type = "dataset_id",
+    root_url = DCAT_URL,
+    id = dataset_id
+  )
+  api$get_response()
+}
+dcat_get_dataset_from_id(dataset_id='xx')
+
+
+
+dcat_get_dataset_from_identifier <- function(identifier){
+  api <- api_class(
+    api_type = "dataset_identifier",
+    root_url = DCAT_URL,
+    id = identifier
+  )
+  api$get_response()
+}
+dcat_get_dataset_from_identifier(identifier='xx')
+
+
+
+dcat_get_distributions_from_dataset_identifier <- function(identifier){
+  api <- api_class(
+    api_type = "dataset_identifier_distributions",
+    root_url = DCAT_URL,
+    id = identifier
+  )
+  api$get_response()
+}
+dcat_get_distributions_from_dataset_identifier(identifier='xx')
+
+
+
+dcat_list_all_distributions <- function(){
+  api <- api_class(
+    api_type = "distributions_list",
+    root_url = DCAT_URL
+  )
+  api$get_response()
+}
+dcat_list_all_distributions()
+
+
+
+
+dcat_get_distribution_from_id <- function(distribution_id){
+  api <- api_class(
+    api_type = "distribution_id",
+    root_url = DCAT_URL,
+    id = distribution_id
+  )
+  api$get_response()
+}
+dcat_get_distribution_from_id(distribution_id='xx')
+