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),