传单-弹出窗口自动弹出

Question

我正在使用leaflet v2.0.1和R 3.5.1

我正在制作一张我想拥有popups的地图。弹出窗口将添加到地图，但是在渲染地图时，所有弹出窗口都将打开。这是一个问题，因为地图上将有800-1100个标记。同样，当我关闭弹出窗口时，我无法再次打开它们。

我正在使用IE-11（工作电脑）

这是我的代码：

mcluster <- leaflet() %>%
  setView(lng = sv_lng, lat = sv_lat, zoom = sv_zoom) %>%
  addTiles() %>% 
  addMarkers(
  lng = origAddress$lon
  , lat = origAddress$lat
  , clusterOptions = markerClusterOptions())
  , popup = ~htmlEscape(PT_FULL_ADDRESS))
    data = getMapData(origAddress)
    , lat = origAddress$lat
    , lng = origAddress$lon
    , popup = origAddress$PT_FULL_ADDRESS
    )
mcluster