通过simplevis添加多边形后无法访问R sf point Popups

R sf point Popups inaccessible after adding polygon via simplevis

我正在尝试创建一个 interactive 地图(使用 simplevisleaflet 包)用于 RMarkdown HTML presentation。没有添加多边形时,弹出窗口工作正常,但一旦添加多边形,就无法再访问弹出窗口。

目的是弹出sf点数据,只显示点数据的图例。添加多边形以显示边界。

我该如何解决这个问题?

示例数据和代码

library(sf)
library(leaflet)
library(simplevis)

leaf_sf_col(example_point, 
            col_var = trend_category,
            popup = TRUE) %>% 
  leaflet::addPolygons(data = sf::st_transform(example_borders, 4326),
                       color = "#35B779", 
                       weight = 3, 
                       fillOpacity = 0, 
                       opacity = 1)

使用 addPolylines 而不是 addPolygons,那么多边形要素将不会捕获点击事件(我认为这是正在发生的事情),因为它只有线而不是 area-covering 多边形.