Nothing
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))
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.