Create Google Maps links based on coordinates and add links to leaflet markers

leaflet_with_google_map_links.R

# How to create Google Maps links based on coordinates and add links to leaflet markers

library(leaflet)
library(htmltools)

# create df with coordinates
df <- read.csv(textConnection(
  "name,Lat,Long
Parc Lafontaine,45.5273219,-73.5703556
Central Park,40.7812199,-73.9665138"
))

# create Google Maps links based on coordinates
df$content <- sprintf(paste0("<b>",df$name,"</b><br>",
                             "<a href='https://www.google.com/maps/search/?api=1&query=",df$Lat,"&#37;2C",df$Long,"'>get directions</a>")) %>%
  lapply(HTML)

# add links to leaflet markers
leaflet(df) %>% 
  addProviderTiles(providers$OpenStreetMap) %>% 
  addCircleMarkers(lng = ~Long, lat = ~Lat, 
                   popup = ~content
  )