如何在 Leaflet 中的 `addPulseMarkers` 上方添加工具提示？

问题描述

我找不到任何有关如何在图层控件上方添加带有 addpulseMarkers 的工具提示的文档（使用 Leaflet.extras）。请参阅下面的示例，了解我的目标。

library(shiny)
library(leaflet)
library(leaflet.extras)



ui <- fluidPage(
  leafletoutput("map")
)

server <- function(input,output,session) {
  
  output$map <- renderLeaflet({
    leaflet(quakes) %>%
    addpulseMarkers(lng = ~long,lat = ~lat,icon = makepulseIcon(color = "blue",heartbeat = 2),group = "I want a tooltip on hover above this that says,'Nice'") %>%
      addLayersControl(
        overlayGroups = c("I want a tooltip on hover above this that says,'Nice'"),options = layersControlOptions(collapsed = FALSE)
      )
      
  })
}

shinyApp(ui,server)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）