video-source.R

library(mapgl)

mapboxgl(
  style = mapbox_style("satellite"),
  center = c(-122.514426, 37.562984),
  zoom = 17,
  bearing = -96,
  minZoom = 14
) |> 
  add_video_source(
    id = "video",
    urls = c('https://static-assets.mapbox.com/mapbox-gl-js/drone.mp4',
             'https://static-assets.mapbox.com/mapbox-gl-js/drone.webm'),
    coordinates = list(
      c(-122.51596391201019, 37.56238816766053),
      c(-122.51467645168304, 37.56410183312965),
      c(-122.51309394836426, 37.563391708549425),
      c(-122.51423120498657, 37.56161849366671)
    )
  ) |> 
  add_raster_layer(
    id = "video",
    source = "video"
  )