tests/testthat/test-pie_gaz.R
In jengelaere/enr.reseaux: EnR de reseaux en Pays de la Loire - TEO
test_that("pie_gaz works", {
r <- list(liste_ter = dplyr::filter(liste_zone_complete, CodeZone %in% c("49", "52")),
maille_terr = "Epci")
graph <- pie_gaz(r = r , indic = "capaci", unite = " GWh/an", fct_unite = 1)
testthat::expect_equal(attr(graph, "class"), c("girafe", "htmlwidget"))
})
jengelaere/enr.reseaux documentation built on Dec. 20, 2021, 11:01 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("pie_gaz works", {
r <- list(liste_ter = dplyr::filter(liste_zone_complete, CodeZone %in% c("49", "52")),
maille_terr = "Epci")
graph <- pie_gaz(r = r , indic = "capaci", unite = " GWh/an", fct_unite = 1)
testthat::expect_equal(attr(graph, "class"), c("girafe", "htmlwidget"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.