adapted @stefanlinner's code to make set_tooltips/source work on maplibre side

[kmcd39]

At title says, i adapted @stefanlinner's code to make set_tooltips/source work on maplibre side. (issue #42)

i'm pretty extremely new to JS but functions are tested in a minimal shiny app:

library(mapgl)
library(sf)
library(shiny)
library(dplyr)

nc <- st_read(system.file("shape/nc.shp", package="sf")) %>%
  mutate(label = paste0(NAME, "<br>", AREA, "<br>", PERIMETER)) |>
  mutate(FIPS = as.numeric(FIPS))

maplibre.ui <-
  fluidPage(

    actionButton("clear.and.refill", "Click")
    ,checkboxInput("arbitrary.filter", "arbitrary.filter")

    ,shiny::selectizeInput("tooltip.colm", label = "tooltip column"
                           ,choices = colnames(nc)[c(1:14,16)]
                           ,selected  = "label"
    )

    ,checkboxInput("arbitrary.filter.source", "arbitrary.filter by source")

    ,maplibreOutput("map")
  )

maplibre.server <- function(input, output, session) {

  output$map <-
    renderMaplibre({

      maplibre() %>%
        fit_bounds(
          nc,
          animate = FALSE
        ) |>
        add_fill_layer(
          "fill",
          source = nc,
          fill_color = interpolate(
            column = "AREA",
            values = c(min(nc[["AREA"]]), max(nc[["AREA"]])),
            stops = c("#f7fbff", "#08306b"),
            na_color = "lightgrey"
          )
          ,tooltip = "label"
        )
    })

  proxy <- maplibre_proxy("map", session)

  # clear and refill a bunch of times
  observeEvent(input$clear.and.refill, {

    for(i in 1:200){
      proxy |>
        clear_layer("fill") |>
        add_fill_layer(
          "fill",
          source = nc,
          fill_color = interpolate(
            column = "AREA",
            values = c(min(nc[["AREA"]]), max(nc[["AREA"]])),
            stops = c("#f7fbff", "#08306b"),
            na_color = "lightgrey"
          )
        )
    }

  })

  # arbitrary filter by changing source data
  observeEvent( input$arbitrary.filter.source, {

    if(input$arbitrary.filter.source) {
      x <- nc |>
        filter(FIPS >= 37100)
    } else{
      x <- nc
    }

    proxy |>
      mapgl::set_source("fill", x)
  })

  # arbitrary filter by mapgl::set_filter
  observeEvent( input$arbitrary.filter, {

    if(input$arbitrary.filter)
      proxy |>
      mapgl::set_filter(
        layer_id = "fill"
        ,filter =
          list(">=", get_column("FIPS"), 37100)
      )
    else
      proxy |>
      mapgl::set_filter(
        layer_id = "fill"
        ,filter =
          list(">=", get_column("FIPS"), 0)
      )

  })

  # do tooltip by column.
  observeEvent( input$tooltip.colm, {
    req(proxy)

    proxy |>
      mapgl::set_tooltip(
        "fill"
        ,input$tooltip.colm
      )
  })
}

shinyApp(
  ui = maplibre.ui,
  server = maplibre.server
)

[walkerke]

Thank you, I'll take a look!

[walkerke]

Works great! Thank you!