84- mise a jour des donnees depuis le sgbd

mise a jour des donnees depuis le sgbd

R/creer_graphe_1_1.R

 #' Creation du graphique du taux d'artificialisation par region (Teruti-Lucas)
 #' @description Creation du graphique representant le taux d'artificialisation par region (Teruti-Lucas)
 #'
-#' @param millesime_teruti une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.
 #' @param code_reg code insee de la région sur laquelle construire le graphique
 #'
 #' @return Un diagramme en barres
@@ -18,9 +17,17 @@
 #' @export
 #'
 #' @examples
-#' creer_graphe_1_1(millesime_teruti=2018 , code_reg = "52")
-creer_graphe_1_1 <- function(millesime_teruti=NULL,
-                             code_reg = NULL){
+#' creer_graphe_1_1(code_reg = "52")
+
+creer_graphe_1_1 <- function(code_reg = NULL){
+
+  millesime_teruti <- teruti  %>%
+    dplyr::select(date) %>%
+    # unique() %>%
+    pull() %>%
+    year() %>%
+    max()
+
 
   attempt::stop_if(millesime_teruti, is.null, msg = "millesime_teruti n'est pas renseign\u00e9")
   attempt::stop_if_not(millesime_teruti, is.numeric, msg = "millesime_teruti n'est pas un nombre")