vignette_etablissement.Rmd

---
title: "Vignette établissement"
output: html_notebook
params:
  siret: '34322975300037'
---


```{r}
library("opensignauxfaibles")
library("openentreprise")
database_signauxfaibles <- database_connect()
```

```{r}
get_sirene(db = database_signauxfaibles, .siret = params$siret)
```