Ajout d'un example d'utilisation de l'argument vars dans la documentation, dans le cas du requêtage SIRENE

[gregmansio]

Bonjour, Tout d'abord, merci beaucoup pour cet excellent package qui me sert beaucoup!

Lors du requêtage de l'API Sirene via la fonction telechargerDonnees(), en utilisant l'argument vars, je reçois le message d'erreur suivant :

In chargerDonnees(telechargerFichier(donnees, date, telDir, argsApi, :
  Il n’est pas possible de filtrer les variables chargées en mémoire sur le format JSON pour le moment.

Je ne sais pas si je renseigne mal cet argument ou si il s'agit d'un problème alternatif, mais lorsque je le retire, ce warning disparaît. J'ai également crée un dossier de téléchargement de données puis l'ai configuré avec option(doremifasol.telDir = ...) mais rien n'y fait.

Pourriez-vous y jeter un oeil et éventuellement rajouter une information dans la documentation s'il vous plaît?

Bien à vous

Grégoire Mansio

Voici un exemple:

if(!require(tidyverse)) install.packages("tidyverse")
if(!require(remotes)) install.packages("remotes")
if(!require(usethis)) install.packages("usethis")
if(!require(httpuv)) install.packages("httpuv")
if(!require(apinsee)) remotes::install_github("inseefrlab/apinsee")
library(httr)
library(jsonlite)

# Rtools is required
if(!require(doremifasol)) remotes::install_github("inseefrlab/doremifasol", build_vignettes = TRUE) 


token <- apinsee::insee_auth() # necessite une clé et un secret du consommateur sur l'api insee, tous deux à enregistrer dans l'environnement sous le format suivant:
#INSEE_APP_KEY=xxxxxxxxxxxxxxxxxxxxxxxxx
#INSEE_APP_SECRET=yyyyyyyyyyyyyyyyyyyyyyy

#Pour ce faire on peut par exemple utiliser usethis ci dessous
#usethis::edit_r_environ("user") 
# Il faut redémarrer la session suite à l'enregistrement de ces credentials dans le fichier environnement


set_config(config(token = token))


## Test de requêtage ciblé

# Requête
Plomberie_4322A <- telechargerDonnees("SIRENE_SIREN", 
                                     argsApi = list(q ="periode(activitePrincipaleUniteLegale:43.22A AND caractereEmployeurUniteLegale:O AND economieSocialeSolidaireUniteLegale:O)"),
                                     vars = c("sirene")
                                     )