esri_layer.R

library(mapgl)

maplibre(
  style = maptiler_style("bright"),
  center = c(-118.705, 34.027),
  zoom = 10
) |> 
  add_symbol_layer(
    id = "trailheads",
    source = list(
      type = "geojson", 
      data = "https://services3.arcgis.com/GVgbJbqm8hXASVYi/arcgis/rest/services/Trailheads/FeatureServer/0/query?f=pgeojson&where=1=1"), 
    icon_image = "outdoor"
  )