add deckgl polygonLayer to a maplibre map using mapgl. Utilizes the blazing fast data transfer via arrow IPC stream

add_deckgl_polygons.R

add_deckgl_polygons = function(
    map
    , data
    , layerId
    , geom_column_name = attr(data, "sf_column")
) {
  
  path_layer = tempfile()
  dir.create(path_layer)
  path_layer = paste0(path_layer, "/", layerId, "_layer.arrow")
  
  geom_col_name <- attr(data, "sf_column")
  geom_type <- geoarrow::infer_geoarrow_schema(data, coord_type = "INTERLEAVED")
  data_schema <- nanoarrow::infer_nanoarrow_schema(data)
  data_schema$children[[geom_col_name]] <- geom_type
  
  data_out = nanoarrow::as_nanoarrow_array_stream(
    data
    , schema = data_schema
  )
  
  nanoarrow::write_nanoarrow(data_out, path_layer)
  
  source("https://raw.githubusercontent.com/r-spatial/leafgl/refs/heads/geoarrow-deckgl/R/deckgl-helpers.R")
  # source("/home/tim/tappelhans/privat/rpckgdv/leafgl/R/deckgl-helpers.R")
  
  deckglMapboxDependency = function() {
    list(
      htmltools::htmlDependency(
        "deck.gl",
        '9.0.14',
        src = c(
          href = "https://cdn.jsdelivr.net/npm/@deck.gl/[email protected]/dist/"
        )
        , script = "resolve-layers.min.js"
      )
    )
  }
  
  map$dependencies = c(
    map$dependencies
    , arrowDependencies()
    , geoarrowjsDependencies()
    , deckglDependencies()
    , geoarrowDeckglLayersDependencies()
    , deckglDataAttachmentSrc(path_layer, layerId)
    , deckglMapboxDependency()
  )
  
  map = htmlwidgets::onRender(
    map
    , htmlwidgets::JS(
      sprintf(
        "function(el, x, data) {
          debugger;
          map = this.getMap();
          addDeckGlPolygons(map, '%s', '%s');
          addGlobeControl(map);
        }"
        , geom_column_name
        , layerId
      )
    )
  ) 
  
  return(map)
  
}