inst/tinytest/test_label.R

In riatelab/mapsf: Thematic Cartography

mtq <- mf_get_mtq()
mf_map(mtq)
expect_silent(mf_label(x = mtq, var = "LIBGEO", halo = TRUE, cex = 0.8,
         overlap = FALSE, lines = TRUE))
expect_silent(mf_label(x = mtq, var = "LIBGEO", halo = TRUE,
                       cex = 0.8, col = sample(1:5, nrow(mtq), replace = TRUE),
                       overlap = FALSE, lines = TRUE))
expect_silent(mf_label(x = mtq, var = "LIBGEO", halo = TRUE,
                       cex = 0.8, col = sample(1:5, nrow(mtq), replace = TRUE),
                       overlap = FALSE, lines = TRUE, pos = 3, font = 3))