example.Rmd 1.03 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
---
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

14
You can install the library with
15

16
```{r install}
17
18
install.packages("remotes")
remotes::install_gitlab("DSCC/fso-metadata-r")
19
20
```

21
22
then at the beginning of your R script, you will need to 
```{r library}
23
library("fso.metadata")
24
25
26
```


27
28
29
30
31
# Available everywhere with the interoperability plateform (i14y)

## Code list

```{r codelist, echo=FALSE}
Pauline Maury Laribière's avatar
Pauline Maury Laribière committed
32
get_codelist(identifier='CL_NOGA_SECTION', language='de')
33
34
35
36
37
```


## Nomenclature
```{r , echo=FALSE}
38
my_filters <- list(
Pauline Maury Laribière's avatar
Pauline Maury Laribière committed
39
40
  'AF_ACTIVE'= list("0"),
  'AFC_ISCO_REDUCED_LIST' = list("1")
41
42
43
44
45
)
```


```{r , echo=FALSE}
Pauline Maury Laribière's avatar
Pauline Maury Laribière committed
46
res <- get_nomenclature_one_level(identifier='HCL_CH_ISCO_19_PROF', filters=my_filters, level_number=2, language='fr')
47
head(res)
48
49
50
```

```{r , echo=FALSE}
Pauline Maury Laribière's avatar
Pauline Maury Laribière committed
51
52
res <- get_nomenclature_multiple_levels(identifier='HCL_CH_ISCO_19_PROF', filters=my_filters, level_from=2, level_to=5, language='de')
res
53
```
Pauline Maury Laribière's avatar
Pauline Maury Laribière committed
54
55
56