Export to SVG
Examples
if (FALSE) {
library(bertin)
library(sf)
world <- st_read(system.file("gpkg/world.gpkg", package = "bertin"),
layer = "world", quiet = TRUE)
map <- bt_layer(data = world, fill = "#808080") |>
bt_draw()
(myfile <- tempfile(fileext = ".svg"))
if (require("chromote")){
bt_save(bertin = map, filename = myfile)
}
}