also change validity_period in insee_token()

InseeFrLab · Oct 31, 2020 · 7b0d58f · 7b0d58f
1 parent 784ff2f
commit 7b0d58f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/token.R b/R/token.R
@@ -22,7 +22,7 @@ NULL
 #' @export
 insee_token <- function(app, cache = getOption("httr_oauth_cache"),
                         config_init = list(), credentials = NULL,
-                        validity_period = 86400, insee_url = getOption("apinsee.url"),
+                        validity_period = 604800, insee_url = getOption("apinsee.url"),
                         api = c("Sirene - V3", "Nomenclatures - v1", "DonneesLocales - V0.1", "BDM - V1")) {
   stopifnot(
     rlang::is_scalar_integerish(validity_period, finite = TRUE),