Skip to content
Snippets Groups Projects
Commit dc9ba766 authored by Franck.Gaspard's avatar Franck.Gaspard
Browse files

nouveau calcul de etalement_urbain.rda avec la nouvelle table...

nouveau calcul de etalement_urbain.rda avec la nouvelle table indicateur_ff_etalement_urbain et production de la nouvelle carte_3_2 fondée sur la comparaison entre l'évolution de l'artificialisation sur la période 2016-2020 et l'évolution de la population sur la période 2015-2019
parent 82c833f9
Branches
No related tags found
2 merge requests!65maj_avant_transfert_vers_gitlabforge,!40mise à jour du millésime (2019) dans le skeleton, le script R, le test et la...
Pipeline #185385 failed
......@@ -20,9 +20,9 @@
#' @export
#'
#' @examples
#' creer_carte_3_2(millesime_etalement_urbain = 2019,police_annotation = "sans", code_reg ="52")
#' creer_carte_3_2(millesime_etalement_urbain = 2020,police_annotation = "sans", code_reg ="52")
creer_carte_3_2 <- function(millesime_etalement_urbain = 2019,
creer_carte_3_2 <- function(millesime_etalement_urbain = 2020,
police_annotation = "sans",
code_reg = NULL) {
......
No preview for this file type
......@@ -9,7 +9,7 @@ params:
millesime_teruti: 2018
millesime_ocsge: 2016
millesime_obs_artif: 2020
millesime_etalement_urbain: 2019
millesime_etalement_urbain: 2020
millesime_obs_artif_gk3: 2019
millesime_population: 2018
millesime_stock_artif: 2020
......
......@@ -5,7 +5,7 @@
\title{Creation de la carte communale de l'etalement urbain}
\usage{
creer_carte_3_2(
millesime_etalement_urbain = 2019,
millesime_etalement_urbain = 2020,
police_annotation = "sans",
code_reg = NULL
)
......@@ -24,5 +24,5 @@ Une carte
Carte communale de l'etalement urbain
}
\examples{
creer_carte_3_2(millesime_etalement_urbain = 2019,police_annotation = "sans", code_reg ="52")
creer_carte_3_2(millesime_etalement_urbain = 2020,police_annotation = "sans", code_reg ="52")
}
test_that("creer_carte_3_2 fonctionne", {
# Test que la carte est un ggplot
objet <- creer_carte_3_2(millesime_etalement_urbain = 2019,police_annotation = "sans", code_reg ="52")
objet <- creer_carte_3_2(millesime_etalement_urbain = 2020, police_annotation = "sans", code_reg ="52")
testthat::expect_equal(attr(objet, "class"), c("gg","ggplot"))
})
......@@ -44,7 +44,7 @@ creer_graphe_3_1(millesime_stock_artif = 2020,
La fonction `creer_carte_3_2()` produit la carte communale de l'étalement urbain.
```{r creer_carte_3_2}
creer_carte_3_2(millesime_etalement_urbain=2019,
creer_carte_3_2(millesime_etalement_urbain = 2020,
police_annotation = "Marianne",
code_reg ="52")
```
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment