R/fn01_choix_annee_etude.R

In ggwinter/eptb2022: Creer une plaquette 4 pages a partir de donnees geokit et csv

#' Choix annee etude
#'
#' La fonction enregistre dans une liste l'annee d'etude et calcule l'annee
#' precedente au format texte
#'
#' @param annee un vecteur numerique de longueur 4 caracteres
#' @examples
#' fn01_choix_annee_etude(2018)
#'
#' @export
fn01_choix_annee_etude <- function(annee = 2019) {
  stopifnot(is.numeric(annee))
  stopifnot(nchar(annee) == 4)

  list(
    'annee_etude' = as.character(annee),
    'annee_prec' = as.character(annee - 1L),
    'annee_debut' = "2010"
  ) -> ls_dates
  return(ls_dates)
}