Nothing
x <- st_buffer(st_transform(poly, 2154), 500)
with_mock_dir("get_apicarto_rpg", {
#/!\ Again, you have to manually change encoding "UTF-8" to "ISO-8859-1" !
test_that("get_apicarto_rpg", {
skip_on_cran()
skip_if_offline()
skip_on_ci()
# simple poly
res <- get_apicarto_rpg(x, 2020, dTolerance = 10)
expect_equal(dim(res), c(8, 9))
expect_s3_class(res, "sf")
# multiple years from same version
res <- get_apicarto_rpg(x, 2020:2021, dTolerance = 10)
expect_equal(dim(res), c(16, 9))
expect_s3_class(res, "sf")
# multiple years from different version
res <- suppressWarnings(get_apicarto_rpg(x, c(2010, 2021), dTolerance = 10))
expect_equal(class(res), "list")
expect_equal(length(res), 2)
# code_cultu
res <- get_apicarto_rpg(x, 2021, code_cultu = "MIE", dTolerance = 10)
expect_equal(dim(res), c(2, 9))
expect_s3_class(res, "sf")
# multiple code_cultu, multiple years
res <- get_apicarto_rpg(x, 2020:2021, code_cultu = c("MIE", "PPH"), dTolerance = 10)
expect_equal(dim(res), c(5, 9))
expect_s3_class(res, "sf")
# vectorization
res <- get_apicarto_rpg(x, 2020:2021, code_cultu = "MIE", dTolerance = 10)
expect_equal(res$code_cultu, rep("MIE", 4))
expect_s3_class(res, "sf")
})
}, simplify = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.