问题添加图标和图例与传单

Question

我尝试在 r markdown 中重复以下代码，但会遇到： “ htmltools::tags$polygon(id = “diamond”，points = draw_diamond(width = width，：尝试应用非功能) 中出现错误”。 如何解决这个问题？

代码来自这里： https:// /roh.engineering/posts/2021/05/map-symbols-and-size-legends-for-leaflet/

library(leaflet)
library(leaflegend)
data("quakes")
symbols <- makeSizeIcons(
  values = quakes$depth,
  shape = 'diamond',
  color = 'red',
  fillColor = 'red',
  opacity = .5,
  baseSize = 10
)

leaflet() %>%
  addTiles() %>%
  addMarkers(data = quakes,
             icon = symbols,
             lat = ~lat, lng = ~long) %>%
  addLegendSize(
    values = quakes$depth,
    color = 'red',
    fillColor = 'red',
    opacity = .5,
    title = 'Depth',
    shape = 'diamond',
    orientation = 'horizontal',
    breaks = 5)