Nothing
library(sf)
library(sp)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"), quiet = TRUE)
mtq$EMP <- mtq$ACT - mtq$CHOM
expect_silent(waffleLayer(x = mtq, var = c("CHOM", "ACT"), cellvalue = 5000, add = FALSE))
plot(st_geometry(mtq))
expect_silent(waffleLayer(x = mtq, var = c("CHOM", "ACT"), cellvalue = 5000, add = TRUE))
expect_error(waffleLayer(x = mtq, var = c("CHOM", "ACT"), cellvalue = 5000, cellrnd = "rndd"))
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.