r - How to add a tooltip above `addPulseMarkers` in Leaflet?

Question

I can't find any documentation on how to add a tooltip with addPulseMarkers above the Layer Control (using leaflet.extras). See below for an example of what I'd aiming to do.

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)

question from:https://stackoverflow.com/questions/65649496/how-to-add-a-tooltip-above-addpulsemarkers-in-leaflet

Answer 1

Do you mean like this?

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)
      ) %>%
      htmlwidgets::onRender("
        function() {
            $('.leaflet-control-layers-overlays').prepend('<label style="text-align:center">Nice</label>');
        }
    ")
    
  })
}

shinyApp(ui, server)

It borrows from: Add title to layers control box in Leaflet using R