Rendre carte 3_2 parametrable par region

Closes #49 (closed)

R/creer_carte_1_3.R

@@ -25,7 +25,7 @@ creer_carte_1_3 <- function(millesime_ocsge,code_reg){
   attempt::stop_if(millesime_ocsge, is.null, msg = "millesime_ocsge n'est pas renseign\u00e9")
   attempt::stop_if_not(millesime_ocsge, is.numeric, msg = "millesime_ocsge n'est pas un nombre")
   attempt::stop_if(code_reg, is.null, msg = "code_reg n'est pas renseign\u00e9")
-  attempt::message_if_not(code_reg, ~ .x == '52', msg = "code_reg n'est pas un code r\u00e9gion valide")
+  # attempt::message_if_not(code_reg, ~ .x == '52', msg = "code_reg n'est pas un code r\u00e9gion valide")
   if (code_reg == '52') {
   data <- ocsge %>%
     dplyr::filter(grepl(millesime_ocsge, .data$date)) %>%