From 7b0d58f5dd1844f78e35dacff17eafe3b2772f10 Mon Sep 17 00:00:00 2001
From: Romain Lesur <romain.lesur@gmail.com>
Date: Sat, 31 Oct 2020 23:53:26 +0100
Subject: [PATCH] also change validity_period in insee_token()

---
 R/token.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/token.R b/R/token.R
index 183acac..2f759ef 100644
--- 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),