## ----setup--------------------------------------------------------------------
library(potentiomap)
r <- terra::rast(nrows = 3, ncols = 3, xmin = 0, xmax = 300,
                 ymin = 0, ymax = 300, crs = "EPSG:26920", vals = 1:9)

## ----style--------------------------------------------------------------------
style_file <- tempfile(fileext = ".sld")
style <- ps_export_style(r, style_file, "sld", "head_raster", units = "m")
style$manifest