diff --git a/DESCRIPTION b/DESCRIPTION index 00d9bbd8296ac23cbffd4288be62b9106028742e..e467e45fe02dc1c43d886dbcec2908b89d554fd8 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -36,7 +36,10 @@ Imports: scales, sf, stringr, - tidyr + tidyr, + utils +Suggests: + testthat Remotes: gitlab::dreal-datalab/drealdown, gitlab::dreal-datalab/mapfactory, @@ -44,4 +47,4 @@ Remotes: Encoding: UTF-8 LazyData: true Roxygen: list(markdown = TRUE) -RoxygenNote: 7.3.1 +RoxygenNote: 7.3.2 diff --git a/R/creer_graphique_series_temporelles.R b/R/creer_graphique_series_temporelles.R index ba80ea9692ada5e34f86b5be75ce81111529dd88..406000dbf517d6a82a765a20597d6bb5f8b63d6f 100644 --- a/R/creer_graphique_series_temporelles.R +++ b/R/creer_graphique_series_temporelles.R @@ -15,7 +15,6 @@ #' @importFrom gouvdown scale_color_gouv_discrete #' @importFrom scales format_format #' @importFrom geofacet facet_geo -#' @examples creer_graphique_series_temporelles <- function(data = indic_ecln, type_logement = "Appartements", indicateurs = c("Encours", "Mises en vente", "Ventes"), diff --git a/R/creer_graphique_series_temporelles_prix.R b/R/creer_graphique_series_temporelles_prix.R index 26c4d4a27e266e6b1b77a90462437da475c6decd..0723312b97ee6a5f9647789231e5dc51da7594f5 100644 --- a/R/creer_graphique_series_temporelles_prix.R +++ b/R/creer_graphique_series_temporelles_prix.R @@ -17,7 +17,6 @@ #' @importFrom scales dollar_format #' @importFrom stringr str_split_fixed #' @importFrom gouvdown scale_color_gouv_discrete -#' @examples creer_graphique_series_temporelles_prix <- function(data = indic_ecln, type_logement = "Logements", type_zone = c("R\u00e9gions", "D\u00e9partements"), diff --git a/R/globals.R b/R/globals.R index fc3c02783dc21938ad0f1f234c6c3e25a15a6d67..c626cf32f9dccbeda0d7a19f900dfd98318ecae9 100644 --- a/R/globals.R +++ b/R/globals.R @@ -1,3 +1,3 @@ utils::globalVariables( - c("liste_zone", "indic_ecln", "%m-%","mygrid","params","Valeur",".") + c("liste_zone","indic_ecln","%m-%","mygrid","params","Valeur",".") ) diff --git a/tests/testthat/test-creer_carte.R b/tests/testthat/test-creer_carte.R new file mode 100644 index 0000000000000000000000000000000000000000..0575e8798a65c311630a5734e33287aa1e59e7f7 --- /dev/null +++ b/tests/testthat/test-creer_carte.R @@ -0,0 +1,12 @@ +test_that("creer_carte_volume fonctionne", { + + carte <- creer_carte_volume(data=indic_ecln, + code_region = "52", + indicateurs = c("Encours","Mises en vente","Ventes"), + type_logement="Appartements", + type_indicateur="Cumul annuel", + titre="", + titre_legende="", + bas_de_page="") + testthat::expect_length(carte, 11) +})