如何获得自定义图标以根据地图上的缩放级别调整大小？

Question

使用leaflet程序包，我创建了一个自定义图标，供我在地图上使用。

橙色点表示事件发生的位置，白色自定义图标表示事件结束的位置。

在缩小级别上，自定义图标的大小是完美的，但是麻烦的是，当我放大时，自定义图标的大小保持不变，其他绘制点在它们周围也大大增长。

是否可以调整图标的大小以匹配地图上的缩放级别？

全视图：

放大视图：（图标很小（保持与全视图相同的大小，在橙色点中间）

我当前的代码

library(leaflet)

m <- leaflet(geochats) %>%
  addTiles('http://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png',attribution='Map tiles by <a href="http://stamen.com">Stamen Design</a>, <a href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a> &mdash; Map data &copy; <a href="http://www.openstreetmap.org/copyright">OpenStreetMap</a>') %>% 
  addCircles(~jitter(origin_lon), ~jitter(origin_lat), popup = geochats$origin_city, weight = 1, radius = 20, 
             color = "#EA7437", stroke = FALSE, fillOpacity = 0.5) %>% 
  addMarkers(~jitter(end_lon), ~jitter(end_lat), icon = JS("L.icon({iconUrl = 'G:\\My Drive\\Images\\icLogoWhite@1x.svg', iconSize: [10, 10], map.on('zoomend', function() { })), popup = geochats$end_city))}"))
m  # Print the map