adding files from R fodler and markdown exmaples

DESCRIPTION

+Package: fso_metadata
+Type: Package
+Title: Metadata Auto R
+Version: 0.0.0.1
\ No newline at end of file

api_call.R → R/api_call.R

@@ -18,15 +18,12 @@ get_codelist <- function(
   )
   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()
 
 
 
@@ -37,7 +34,7 @@ get_identifier_content <- function(identifier){
   )
   api$get_response()
 }
-get_identifier_content(identifier='HCL_CH_ISCO_19_PROF')
+
 
 
 
@@ -49,7 +46,6 @@ get_dataset_description <- function(identifier, language='fr'){
   )
   api$get_response()
 }
-get_dataset_description(identifier='HCL_NOGA', language='de')
 
 
 
@@ -61,7 +57,6 @@ get_dataset_information <- function(identifier, language='en'){
   )
   api$get_response()
 }
-get_dataset_information(identifier='HCL_NOGA', language='de')
 
 
 
@@ -73,7 +68,6 @@ get_data_structure <- function(identifier, language='en'){
   )
   api$get_response()
 }
-get_data_structure(identifier='HCL_NOGA', language='it')
 
 
 
@@ -92,12 +86,6 @@ get_nomenclature_path_nodes <- function(
   )
   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)
-
 
 
 get_nomenclature_one_level<- function(
@@ -117,8 +105,6 @@ get_nomenclature_one_level<- function(
   )
   api$get_response()
 }
-get_nomenclature_one_level(identifier='HCL_CH_ISCO_19_PROF', filters=my_filters, level_number=2)
-
 
 
 get_nomenclature_multiple_levels <- function(
@@ -141,8 +127,6 @@ get_nomenclature_multiple_levels <- function(
   # TODO: post processing in R
   ###############################################################
 }
-get_nomenclature_multiple_levels(identifier='HCL_CH_ISCO_19_PROF', filters=my_filters, level_from=2, level_to=5)
-
 
 
 query_nomenclature <- function(
@@ -161,8 +145,6 @@ query_nomenclature <- function(
   )
   api$get_response()
 }
-query_nomenclature(identifier='HCL_CH_ISCO_19_PROF', query='SELECT *', page_number=5, page_size=2, filters=my_filters)
-
 
 
 
@@ -178,8 +160,6 @@ dcat_list_all_agents <- function(){
   )
   api$get_response()
 }
-dcat_list_all_agents()
-
 
 
 dcat_get_agent_from_id <- function(agent_id){
@@ -190,8 +170,6 @@ dcat_get_agent_from_id <- function(agent_id){
   )
   api$get_response()
 }
-dcat_get_agent_from_id(agent_id='xx')
-
 
 
 dcat_list_all_datasets <- function(){
@@ -201,8 +179,6 @@ dcat_list_all_datasets <- function(){
   )
   api$get_response()
 }
-dcat_list_all_datasets()
-
 
 
 dcat_get_distributions_from_dataset_id <- function(dataset_id){
@@ -213,8 +189,6 @@ dcat_get_distributions_from_dataset_id <- function(dataset_id){
   )
   api$get_response()
 }
-dcat_get_distributions_from_dataset_id(dataset_id='xx')
-
 
 
 dcat_get_dataset_from_id <- function(dataset_id){
@@ -225,8 +199,6 @@ dcat_get_dataset_from_id <- function(dataset_id){
   )
   api$get_response()
 }
-dcat_get_dataset_from_id(dataset_id='xx')
-
 
 
 dcat_get_dataset_from_identifier <- function(identifier){
@@ -237,8 +209,6 @@ dcat_get_dataset_from_identifier <- function(identifier){
   )
   api$get_response()
 }
-dcat_get_dataset_from_identifier(identifier='xx')
-
 
 
 dcat_get_distributions_from_dataset_identifier <- function(identifier){
@@ -249,8 +219,6 @@ dcat_get_distributions_from_dataset_identifier <- function(identifier){
   )
   api$get_response()
 }
-dcat_get_distributions_from_dataset_identifier(identifier='xx')
-
 
 
 dcat_list_all_distributions <- function(){
@@ -260,9 +228,6 @@ dcat_list_all_distributions <- function(){
   )
   api$get_response()
 }
-dcat_list_all_distributions()
-
-
 
 
 dcat_get_distribution_from_id <- function(distribution_id){
@@ -273,5 +238,3 @@ dcat_get_distribution_from_id <- function(distribution_id){
   )
   api$get_response()
 }
-dcat_get_distribution_from_id(distribution_id='xx')
-

install.R → R/install.R

-install.packages(c("httr", "jsonlite", "glue", "hash"))
+install.packages(c("devtools", "roxygen2", "httr", "jsonlite", "glue", "hash"))
 devtools::install_github("opensdmx/rsdmx")

environment.yml

-name: "base"
-channels:
-  - defaults
-# dependencies:
-# - add packages here
-# - one per line
-prefix: "/opt/conda"
\ No newline at end of file

example.Rmd

+---
+title: "Examples R Markdown"
+author: "Pauline Maury Laribière"
+date: "21/10/2021"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+# Installation
+
+To install the library: # source stuff
+
+```{r cars}
+summary(cars)
+```
+
+# Available everywhere with the interoperability plateform (i14y)
+
+## Code list
+
+```{r codelist, echo=FALSE}
+get_codelist(identifier='CL_NOGA_SECTION')
+```
+
+
+## Content Creation
+
+```{r content_creation, echo=FALSE}
+get_content_configuration()
+```
+
+```{r content_creation_identifier, echo=FALSE}
+get_identifier_content(identifier='HCL_CH_ISCO_19_PROF')
+```
+
+## Dataset
+
+```{r , echo=FALSE}
+get_dataset_description(identifier='HCL_NOGA', language='de')
+```
+
+```{r , echo=FALSE}
+get_dataset_information(identifier='HCL_NOGA', language='de')
+```
+
+## Data Structure
+
+```{r , echo=FALSE}
+get_data_structure(identifier='HCL_NOGA', language='it')
+```
+
+## Nomenclature
+```{r , echo=FALSE}
+my_filters <- hash(
+  'prop1'= list("string"),
+  'prop2' = list("string", "string2")
+)
+```
+
+
+```{r , echo=FALSE}
+get_nomenclature_path_nodes(identifier='HCL_CH_ISCO_19_PROF', path='.', filters=my_filters)
+```
+
+```{r , echo=FALSE}
+get_nomenclature_one_level(identifier='HCL_CH_ISCO_19_PROF', filters=my_filters, level_number=2)
+```
+
+```{r , echo=FALSE}
+get_nomenclature_multiple_levels(identifier='HCL_CH_ISCO_19_PROF', filters=my_filters, level_from=2, level_to=5)
+```
+
+```{r , echo=FALSE}
+query_nomenclature(identifier='HCL_CH_ISCO_19_PROF', query='SELECT *', page_number=5, page_size=2, filters=my_filters)
+```
+
+
+# Available only internally (Intern to confederation or via VPN)
+
+## Agent
+
+```{r , echo=FALSE}
+dcat_list_all_agents()
+```
+
+```{r , echo=FALSE}
+dcat_get_agent_from_id(agent_id='xx')
+```
+
+
+## Dataset
+
+```{r , echo=FALSE}
+dcat_list_all_datasets()
+```
+
+```{r , echo=FALSE}
+dcat_get_distributions_from_dataset_id(dataset_id='xx')
+```
+
+```{r , echo=FALSE}
+dcat_get_dataset_from_id(dataset_id='xx')
+```
+
+```{r , echo=FALSE}
+dcat_get_dataset_from_identifier(identifier='xx')
+```
+
+```{r , echo=FALSE}
+dcat_get_distributions_from_dataset_identifier(identifier='xx')
+```
+
+## Distributions
+
+```{r , echo=FALSE}
+dcat_list_all_distributions()
+```
+
+```{r , echo=FALSE}
+dcat_get_distribution_from_id(distribution_id='xx')
+```
\ No newline at end of file