Листовка addMarkers не отображается при использовании clusterOptions с addPolygons или addRasterImage

Question

У меня есть рабочая карта листовок, которая показывает несколько маркеров, кластеризованных с использованием clusterOptions.Я хочу добавить данные топографии и некоторые шейп-файлы границ в качестве фона вместо плиток по умолчанию.Однако addMarkers с clusterOptions не отображается, если addRasterImage (или addPolygons) используется на той же карте.

Использование addRasterImage в дополнение к addTiles, вместо замены addTiles на addRasterImage, правильно отображает кластеры маркеров.Однако это не решение, потому что я не хочу использовать плитки по эстетическим и ресурсным причинам.

library(leaflet)

# this works
leaflet(quakes) %>% 
  setView( lat=-23, lng=180, zoom=6) %>%
  addTiles() %>%
  addMarkers(~long, ~lat)


# this doesn't work, only shows polygons... if anything
leaflet(quakes) %>% 
  setView( lat=-23, lng=180, zoom=6) %>%
  addMarkers(~long, ~lat, clusterOptions = TRUE) %>%
  addPolygons(lng = ~long, lat = ~lat, fill = F, weight = 1.5, color = "gray", opacity = 0.9, fillOpacity = 0)


# this works (takes a while), but I don't want to use tiles :(
leaflet(quakes) %>% 
  setView( lat=-23, lng=180, zoom=6) %>%
  addTiles() %>%
  addMarkers(~long, ~lat, clusterOptions = TRUE) %>%
  addPolygons(lng = ~long, lat = ~lat, fill = F, weight = 1.5, color = "gray", opacity = 0.9, fillOpacity = 0)

Answer 1

Проблема связана с опциями clusterOptions = TRUE. Если вы удалите его, карта работает:

leaflet(quakes) %>% 
  setView( lat=-23, lng=180, zoom=6) %>%
  addPolygons(lng = ~long, lat = ~lat, fill = F, weight = 1.5, color = "gray", opacity = 0.9, fillOpacity = 0) %>%
  addMarkers(~long, ~lat) 

Я не знаю, почему плитки являются обязательными для включения этой опции, но я предполагаю, что это связано с полигонами, которые нарисованы, чтобы стабильный кластер отображался на плитку