Mise a jour du 1er graphique teruti avec les donnees 2020

suppression du parametre annee teruti

R/creer_graphe_1_1.R

@@ -18,9 +18,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")

data-raw/dataprep.R

@@ -10,13 +10,13 @@ rm(list = ls())
 
 
 # téléchargement des donnees Teruti -----------------------------
-# issues du site  https://agreste.agriculture.gouv.fr/agreste-web/disaron/W0020/detail/
+# issues du site  https://agreste.agriculture.gouv.fr/agreste-web/disaron/W0021/detail/
 # L'indicateur "Surface" est en hectares.
 # L'indicateur "Précision" est le coefficient de variation (CV) en %. Plus le CV est faible, plus l'estimation est précise.
 # L'indicateur "Demi-intervalle de confiance" est la valeur en hectares permettant de calculer la borne inférieure et la borne supérieure de l'intervalle de confiance. Cet intervalle a 95 % de chances de contenir la "vraie" surface.
 # L'Année de référence est l'année médiane de 3 années successives.
 
-teruti <- read.csv2("extdata/FDS_W0020_Moy-2017-2018-2019.csv", as.is = TRUE, encoding = "UTF-8") %>%
+teruti <- read.csv2("extdata/FDS_W0021_Moy-2019-2020-2021.csv", as.is = TRUE, encoding = "UTF-8") %>%
   select(ANNREF, GEOGRAPHIE, N027_LIB, N613_LIB, VALEUR) %>%
   mutate(
     TypeZone = case_when(
@@ -52,7 +52,8 @@ teruti <- read.csv2("extdata/FDS_W0020_Moy-2017-2018-2019.csv", as.is = TRUE, en
     ) %>%
       as.factor()
     ) %>%
-  select(TypeZone, CodeZone, Zone, date, variable, valeur)
+  select(TypeZone, CodeZone, Zone, date, variable, valeur) %>%
+  filter(variable %in% c("Tous sols","Sols artificiels","Sols agricoles","Sols naturels"))
 
 
 # téléchargement des tables sur le SGBD -------------
@@ -108,3 +109,4 @@ usethis::use_data(ocsge, overwrite = TRUE, internal = FALSE)
 usethis::use_data(stock_artificialise, overwrite = TRUE, internal = FALSE)
 usethis::use_data(metadata_donnee, overwrite = TRUE, internal = FALSE)
 usethis::use_data(millesimes_disponibles, overwrite = TRUE, internal = FALSE)
+

inst/rmarkdown/templates/publication/skeleton/skeleton.Rmd

@@ -38,8 +38,7 @@ ggplot2::theme_set(ggplot2::theme_minimal() +
                      ggplot2::theme(plot.caption.position =  "plot",
                                     plot.title.position = "plot",
                    plot.title = ggplot2::element_text(size = 14)))
-creer_graphe_1_1(millesime_teruti = params$millesime_teruti,
-                 code_reg = params$code_reg )
+creer_graphe_1_1(code_reg = params$code_reg )
 ```
 
 texte......

man/creer_graphe_1_1.Rd

@@ -4,12 +4,12 @@
 \alias{creer_graphe_1_1}
 \title{Creation du graphique du taux d'artificialisation par region (Teruti-Lucas)}
 \usage{
-creer_graphe_1_1(millesime_teruti = NULL, code_reg = NULL)
+creer_graphe_1_1(code_reg = NULL)
 }
 \arguments{
-\item{millesime_teruti}{une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.}
-
 \item{code_reg}{code insee de la région sur laquelle construire le graphique}
+
+\item{millesime_teruti}{une année parmi les millesimes sélectionnables par l'utilisateur, au format numerique.}
 }
 \value{
 Un diagramme en barres
@@ -18,5 +18,5 @@ Un diagramme en barres
 Creation du graphique representant le taux d'artificialisation par region (Teruti-Lucas)
 }
 \examples{
-creer_graphe_1_1(millesime_teruti=2018 , code_reg = "52")
+creer_graphe_1_1(code_reg = "52")
 }

vignettes/aa-ch1.Rmd

@@ -32,7 +32,7 @@ La fonction `creer_graphe_1_1()` produit le graphique des taux d'artificialisati
 
 ```{r creer_graphe_1_1}
 
-creer_graphe_1_1(millesime_teruti=2018, code_reg = "52")
+creer_graphe_1_1(code_reg = "52")
 ```
 
 ## Carte communale des Pays de la Loire de l'artificialisation en volume selon OCSGE