Skip to content
demo.R 1.27 KiB
Newer Older
# When the package will be finished, install via CRAN
# install.packages("fso.metadata")

# Currently use:
devtools::install_url("https://renkulab.io/gitlab/dscc/metadata-auto-r-library/-/archive/v002/metadata-auto-r-library-v002.tar.gz")
library("fso.metadata")


# Get a codelist 
# In german
codelist <- get_codelist(identifier='CL_NOGA_SECTION', language='de')
head(codelist$label.de)
head(codelist$id)

# In french
codelist <- get_codelist(identifier='CL_NOGA_SECTION', language='fr')
head(codelist$label.fr)
head(codelist$id)

## Get a nomenclature of one level
# French 2 levels
nomenclature_fr <- get_nomenclature_one_level(
  identifier='HCL_CH_ISCO_19_PROF', level_number=2, language='fr'
)
head(nomenclature_fr, 10)

# German 3 levels
nomenclature_de <- get_nomenclature_one_level(
  identifier='HCL_CH_ISCO_19_PROF', level_number=3, language='de'
)
head(nomenclature_de, 10)


## Get a nomenclature of multiple levels
# French
multi_nomenclature_fr <- get_nomenclature_multiple_levels(
  identifier='HCL_CH_ISCO_19_PROF', 
  level_from=2, 
  level_to=5, 
  language='fr'
)
head(multi_nomenclature_fr, 10)

# German
multi_nomenclature_de <- get_nomenclature_multiple_levels(
  identifier='HCL_CH_ISCO_19_PROF', 
  level_from=1, 
  level_to=3, 
  language='de'
)
head(multi_nomenclature_de, 10)