day-9-analog.R

library(mapgl)
library(sf)

nc <- st_read(system.file("shape/nc.shp", package = "sf"))

# Custom style with background-pattern
style <- list(
  version = 8,
  sources = structure(list(), .Names = character(0)),
  layers = list(
    list(
      id = "background",
      type = "background",
      paint = list(
        `background-pattern` = "parchment" 
      )
    )
  )
)

maplibre(style = style) |>
  fit_bounds(nc) |>
  add_image(
    id = "parchment",
    url = "parchment.jpg" # Your image - find a free stock photo online to try
  ) |>
  add_line_layer(
    id = "counties",
    source = nc,
    line_color = "#2c1810",
    line_width = 1.5
  )