如何解决如何在 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 举报,一经查实,本站将立刻删除。