Tengo una aplicación R Shiny que usa Leaflet para crear un mapa interactivo. En este mapa, se utiliza una variable categórica para designar diferentes tipos de puntos y se visualiza mediante marcadores personalizados (diferentes iconos, según el nivel del factor).

Lo que me gustaría hacer es agregar una leyenda a la trama, pero hacer que la leyenda muestre los diversos iconos de marcadores en lugar de colores sólidos. lostutorial de leyendas no cubre esto

Me he encontrado con otroAsí que responde que parece resolver esto - pero se hizo en JavaScript y no estoy seguro de cómo traducirlo / si se puede traducir para que funcione en R. ¿Alguien sabe cómo lograr esto?

Un ejemplo reproducible básico:

library(leaflet)

# Sample Data
data(quakes)
quakes <- quakes[1:10,]

# Choose Icon:
leafIcons <- icons(
  iconUrl = ifelse(quakes$mag < 4.6,
                   "http://leafletjs.com/docs/images/leaf-green.png",
                   "http://leafletjs.com/docs/images/leaf-red.png"
  ),
  iconWidth = 38, iconHeight = 95,
  iconAnchorX = 22, iconAnchorY = 94)

# Produce Map:
leaflet(data = quakes) %>% addTiles() %>%
  addMarkers(~long, ~lat, icon = leafIcons)