Nothing
library(sf)
library(sp)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"), quiet = TRUE)
plot(st_geometry(mtq))
expect_silent(propSymbolsTypoLayer(mtq, var="POP", var2 = "STATUS", add=TRUE))
plot(st_geometry(mtq))
expect_silent(propSymbolsTypoLayer(mtq, var="POP", var2 = "STATUS", add=TRUE, symbols = "square"))
plot(st_geometry(mtq))
expect_silent(propSymbolsTypoLayer(mtq, var="POP", var2 = "STATUS", add=TRUE, symbols = "bar"))
plot(st_geometry(mtq))
expect_silent(propSymbolsTypoLayer(mtq, var="POP", var2 = "STATUS", add=TRUE, symbols = "square"))
plot(st_geometry(mtq))
expect_silent(propSymbolsTypoLayer(spdf = as(mtq, "Spatial"), var="POP", var2 = "STATUS", add=TRUE))
plot(st_geometry(mtq))
expect_silent(propSymbolsTypoLayer(mtq, var="POP", var2 = "STATUS", fixmax = 100000,add=TRUE))
mtq$STATUS[1:2] <- NA
expect_silent(propSymbolsTypoLayer(mtq, var="POP", var2 = "STATUS", add=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.