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

[sylvain-juliachs]

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)