Add Authorization header to tile request

[jdenisgiguere]

Greetings!

I start experimenting with rdeck and shiny and I'm impressed by the geo-dashboard capabilities they offer.

In my dashboard, I will want to add both public and protected vector tile services.

I think this use case may be one of the reason why the get_tile_data is exposed.
I guess this could allow to add custom headers like the Authorization one.

Unfortunately, I cannot succeed to use the get_tile_data property.
Even a fake implementation that would print a console.log when the method is called by deck.gl did not seem to be considered.

I also try to override the fetch method based on the ... capabilities, but I did not get more chances.

You will find below a snippet based on my experimentation.

Thanks in advance for your feedback!

library(shiny)
library(rdeck)

options(shiny.port = 8180)
options(shiny.host = "0.0.0.0")

ui <- fillPage(
    rdeckOutput("map", height = "100%")
)

get_tile_data_method <- JS(
    "({url, signal}) => {",
    "console.log('loading tile...')",
    "const data = fetch('https://tiles-b.basemaps.cartocdn.com/vectortiles/carto.streets/v1/0/0/0.mvt', {signal});", # nolint
    "if (signal.aborted) {",
    "  return null;",
    "}",
    "}"
)


fetch_method <- JS(
    "(url, {layer, signal}) => {",
    "const loadOptions = {...layer.getLoadOptions()};",
    "loadOptions.fetch = {",
    "...loadOptions.fetch,",
    "signal",
    "};",
    "return load(url, loadOptions);",
    "}"
)


map <- rdeck(initial_view_state = view_state(
    center = c(-75.695000, 45.424721),
    zoom = 12
)) %>%
    add_mvt_layer(
        id = "road",
        data = "https://tiles-b.basemaps.cartocdn.com/vectortiles/carto.streets/v1/{z}/{x}/{y}.mvt", # nolint
        get_tile_data = get_tile_data_method,
    )

server <- function(input, output, session) {
    output$map <- renderRdeck(map)
}

shinyApp(ui, server)

> sessionInfo()
R version 4.3.3 (2024-02-29)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 22.04.4 LTS

Matrix products: default
BLAS:   /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3 
LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.20.so;  LAPACK version 3.10.0

locale:
 [1] LC_CTYPE=en_CA.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_CA.UTF-8        LC_COLLATE=en_CA.UTF-8    
 [5] LC_MONETARY=en_CA.UTF-8    LC_MESSAGES=en_CA.UTF-8   
 [7] LC_PAPER=en_CA.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_CA.UTF-8 LC_IDENTIFICATION=C       

time zone: America/Toronto
tzcode source: system (glibc)

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] rdeck_0.5.2.9000

loaded via a namespace (and not attached):
 [1] htmlwidgets_1.6.4 compiler_4.3.3    magrittr_2.0.3    fastmap_1.1.1    
 [5] cli_3.6.2         generics_0.1.3    htmltools_0.5.8.1 digest_0.6.35    
 [9] stylebox_0.4.0    lifecycle_1.0.4   rlang_1.1.3