dans la fiche 16. Travailler avec des API, le code pour les API avec jeton ne me semble pas fonctionner

Je pense qu'il y a une erreur de parenthèses dans le code de la section 16.3.3
```
res <- httr::content(httr::GET(url),
auth_header, # ajout de la variable d'authentification
as="text",
httr::content_type_json(),
encoding='UTF-8')
```
C'est la fonction `GET` qui peut prendre `auth_header` comme 2e argument, la fonction `content` prend les arguments suivants : `content(x, as = NULL, type = NULL, encoding = NULL, ...)`
En modifiant légèrement le code ainsi :
```
res <- httr::content(httr::GET('https://api.insee.fr/api-sirene/3.11/siren/309634954',
config = auth_header), # ajout de la variable d'authentification en argument de GET
as="text",
httr::content_type_json(),
encoding='UTF-8')
```
Cela fonctionne chez moi, en tout cas pour un appel à l'API Sirene.
`auth_header` était définie plus haut dans le script et `API_key` est une variable d'environnement récupérée sur le portail API Insee :
```
auth_header <-
httr::add_headers('X-INSEE-Api-Key-Integration' = API_key)
```