nettoie vars env pour API Sirene

Author: pierre-lamarche

.github/workflows/build-artifacts.yml

@@ -17,8 +17,7 @@ jobs:
           - {os: ubuntu-24.04, r-version: '4.4', rspm: 'https://packagemanager.posit.co/cran/__linux__/noble/latest'}
     runs-on: ${{ matrix.config.os }}
     env:
-      INSEE_APP_KEY: ${{ secrets.INSEE_APP_KEY }}
-      INSEE_APP_SECRET: ${{ secrets.INSEE_APP_SECRET }}
+      INSEE_API_TOKEN: ${{ secrets.INSEE_API_TOKEN }}
       RSPM: ${{ matrix.config.rspm }}
       GITHUB_PAT: ${{ secrets.PAT_TOKEN }}
       CURLOPT_TIMEOUT: 0

R/sirets_successeurs.R

@@ -15,9 +15,9 @@
 #' pouvoir générer un jeton d'accès. Ces informations sont à passer sous forme
 #' de variables d'environnement.
 #' 
-#' Renseigner pour cela `INSEE_APP_KEY` et `INSEE_APP_SECRET` dans un fichier
+#' Renseigner pour cela `INSEE_API_TOKEN` dans un fichier
 #' de configuration `.Renviron`.
-#' Consulter [cette page](https://api.insee.fr/catalogue/site/themes/wso2/subthemes/insee/pages/help.jag)
+#' Consulter [cette page](https://github.com/InseeFrLab/DoReMIFaSol/tree/new-api#requ%C3%AAter-une-api-rest--le-r%C3%A9pertoire-dentreprises-sirene)
 #' pour de l'aide sur comment obtenir de tels identifiants.
 #'
 #' @param sirets établissements pour lesquels rechercher les successeurs (un

man/sirets_successeurs.Rd

@@ -2,4 +2,4 @@ library(doremifasol)
 library(testthat)
 
 # tests unitaires sur la fonction telechargerDonnees
-test_check("doremifasol")
+test_check("doremifasol")

tests/testthat.R

@@ -1,21 +1,16 @@
 skip_if_no_app <- function() {
-  if (nzchar(Sys.getenv("INSEE_APP_KEY")) && nzchar(Sys.getenv("INSEE_APP_SECRET"))) {
+  if (nzchar(Sys.getenv("INSEE_API_TOKEN"))) {
     return(invisible(TRUE))
   }
-  testthat::skip("Environment variables INSEE_APP_KEY and INSEE_APP_SECRET are not defined.")
+  testthat::skip("Environment variable INSEE_API_TOKEN is not defined.")
 }
 
 app_maybe <- function() {
   skip_if_no_app()
-  httr::oauth_app("Test", Sys.getenv("INSEE_APP_KEY"), Sys.getenv("INSEE_APP_SECRET"))
+  check_configuration()
 }
 
 check_configuration <- function() {
   skip_if_offline("api.insee.fr")
   skip_if_not_installed("httpuv")
 }
-
-fetch_token_maybe <- function() {
-  check_configuration()
-  insee_token(app_maybe(), cache = FALSE)
-}