Place an MVT layer under a layer present in the basemap about rdeck

[anthonynorth]

rdeck doesn't support interleaving deck.gl layers with basemap layers; all of the layers you add to an rdeck map are deck.gl layers and will be rendered on top of the basemap as an overlay. The mvt_layer is the deck.gl MVTLayer which renders tile data as a GeoJsonLayer.

You could also just use the layer_selector and toggle layers off when you need to see the basemap, unobstructed by data: rdeck(layer_selector = TRUE). Assuming that your data is more important than the basemap context the majority of the time, this should work well -- my team does this.

If you need to put basemap labels on top of your data, you can achieve that by re-drawing the labels on top of other deck.gl layers with another mvt_layer (or text_layer if the data is local).

PS: I don't intend to support deck.gl and mapbox-gl interleaving via MapboxLayer.

[bdbmax]

All right, thanks for the quick answer!

Just tried with local data and add_text_layer, works fine! To avoid the addition of a layer, there's a column in my MVT with the labels of my polygons. I saw the get_text argument in the Usage part of the add_mvt_layer documentation, but couldn't make it work the same way I did with add_text_layer! Labels don't appear. Here's a reprex if you'd like to take a look:

shinyApp(
  ui = fillPage(
    rdeckOutput("map", height = "100%"),
  ),
  
  server = function(input, output) {
    
    output$map <- renderRdeck(
      rdeck(theme = "mapbox://styles/mapbox/streets-v11",
            initial_view_state = view_state(center = c(-73.58, 45.53), 
                                            zoom = 10.1)) |> 
        add_mvt_layer(id = "test", 
                      data = mvt_url("maxbdb.borough_7"),
                      pickable = TRUE, tooltip = TRUE, 
                      get_text = rlang::sym("name"),
                      get_fill_color = "#FE7D6AFF")
    )
  }
)

[anthonynorth]

mvt_layer can draw text for point features via point_type = "text" (or "circle+text", "icon+text" etc). That tileset doesn't appear to have any point features though.

Unrelated note, changing the basemap is done via map_style; theme ("kepler" or "light") is for css -- and appears to be not validated.

library(rdeck)
library(shiny)
shinyApp(
  ui = fillPage(
    rdeckOutput("map", height = "100%"),
  ),
  
  server = function(input, output) {
    
    output$map <- renderRdeck(
      rdeck(map_style = "mapbox://styles/mapbox/streets-v11",
            initial_view_state = view_state(center = c(-73.58, 45.53), 
                                            zoom = 10.1)) |> 
        add_mvt_layer(id = "test", 
                      data = mvt_url("maxbdb.borough_7"),
                      pickable = TRUE, tooltip = TRUE, 
                      get_text = rlang::sym("name"),
                      get_fill_color = "#FE7D6AFF",
                      point_type = "text")
    )
  }
)

[bdbmax]

That fixes the issue. Thanks a lot!