interactiveposition.R

library(cartography)
library(sf)
mtq <- st_read(system.file("gpkg/mtq.gpkg", 
                           package="cartography"))

bks <- getBreaks(v = mtq$MED, nclass = 5, 
                 method = "quantile")
cols <- carto.pal(pal1 = "turquoise.pal", n1 = 5)
choroLayer(x = mtq, var = "MED", 
           breaks = bks, col = cols, 
           legend.pos = NA)
legendChoro(pos = unlist(locator(1)), 
            breaks = bks, col = cols, 
            nodata = FALSE)
north(pos = unlist(locator(1)))
barscale(pos = unlist(locator(1)), size = 5)